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PREFACE 


This document is the reference manual to the Pascal/VS programming language. The 
Pascal/VS Programmer’s Guides SH20-6162» is also available from IBM to help write 
programs in Pascal/VS. 

It is assumed that you are already familiar with Pascal and programming in a high 
level programming language. There are many text books available on Pascal; the fol¬ 
lowing list of books was taken from the Pascal User's Group Pascal News. December 
1978 NUMBER 13 and September 1979 NUMBER 15. You may wish to check later editions of 
Pascal News and your library for more recent books. 

• The Design of I4el1-Structured and Correct Programs by S. Alagic and M.A. Arbib» 
Springei—Verlag» New York» 1978» 292 pp. 

• Microcomputer Problem Solving by K.L. Bowles^ Springer-Verlag, New York» 1977» 
563 pp. 

• A_St ructured Programming Approach to Data by D. Coleman^ MacMillan Press Ltd» 

Loncon^ 1978^ 222 pp. 

• A_ Primer on Pascal by R.W. Conway» D. Gries and E.C. Zimmerman^ Winthrop Pub¬ 

lishers Inc.» Cambridge Mass.» 1976» 433 pp. 

• PASCAL* An Introduction to Methodical Programming by W. Findlay and D. Watt, 
Computer Science Press, 1978, 306 pp.; UK Edition by Pitman International Text, 
1978. 

• Programming in PASCAL by Peter Grogono, Addison-Wesley, Reading Mass., 1978, 
357pp. 

• Pascal Users Manual and Report by K. Jensen and N. Wirth, Springei—Verlag, New 
York, 1978, 170 pp. 

• Structured Programming and Problem-Solving with Pascal by R.B. Kieburtz, 
Prentice-Hall Inc., 1978, 365 pp. 

• Programming via Pascal by J.S. Rohl and Barrett, Cambridge University Press. 

• An Introduction to Programming and Problem-Solving with Pascal by G. M. 
Schneider, S.W. Weingart and D.M. Perlman, Wiley & Sons Inc., New York, 394 pp. 

• Introduction to Pascal by C.A.G. Webster, Heyden, 1976, 129 pp. 

• Introduction to Pascal by J. Welsh and J. Elder, Prentice-Hall Inc., Englewood 
Cliffs, 220 pp. 

• A_ Practical Introduction to Pascal by I.P. Wilson and A.M. Addyman, 

Springei—Verlag New York, 1978, 145pp; MacMillan, London, 1978. 

• Systematic Programming^ An Introduction by N. Wirth, Prentice-Hall Inc., 
Englewood Cliffs, 1973 169 pp. 

• Algorithms + Data Structures - Programs by N. Wirth, Prentice-Hall Inc., 
Englewood Cliffs, 1976 566 pp. 

This reference manual considers ISO/TC 97/SC 5 N595 as the Pascal Standard although 
N565 is a proposed standard and subject to further modification. 


STRUCTURE OF THIS MANUAL 

This manual is divided into the following major topics 
Chapter lisa summary of the language. 

Chapter 2 is a description of the basic units (lexical) of Pascal/VS. 

Chapters 3 through 9 are a top-down presentation of the language. 

Chapter 10 describes the I/O procedures and functions. 
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Chapter 11 describes the predefined procedures and functions. 
Chapter 12 describes the compiler directives. 

Appendices provide supplemental information about Pascal/VS. 


PASCAL/VS SYNTAX DIAGRAMS 


The sv^ntax of Pascal/VS will be described with the aid of syntax diagrams. These 
diagrams are essentially 'road maps'; by traversing the diagram in the direction of 
the arrows you can identify every possible legal Pascal/VS program. 

Within the syntax diagram, the names of other diagrams are printed in lower case and 
surrounded by braces ('{}'). When you traverse the name of another diagram you can 
consider it a subroutine call (or more precisely a 'subdiagram call'). The names of 
reserved words are always in lower case. Special symbols (i.e. semicolons, commas, 
operators etc ) appear as they appear in a Pascal/VS program. 

The diagram traversal starts at the upper left and completes with the arrow on the 
right. Every horizontal line has an arrowhead to show the direction of the trav¬ 
ersal on that line. The direction of traversal on the vertical lines can be deduced 

by looking at the horizontal lines to which it connects. Dashed lines (i.e. '- ') 

indicate constructs which are unique to Pascal/VS and are not found in standard 
Pascal. 

Identifiers may be classified according to how they are declared. For the sake of 
clarity, a reference in the syntax diagram for (id) is further specified with a one 
or two word description indicating how the identifier was declared. The form of the 
reference is '{id•description)'. For example {id^typc} references an identifier 
declared as a type; {id5function) references an identifier declared as a function 
name. 


REVISION CODES 


The convention used in this document is that all changes in the 
the previous edition are flagged with a vertical bar in the left 


current version from 
margin. 


Extensions to Pascal are marked with a plus sign 


i n the margin. 
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SUMMARY OF AMENDMENTS 


RELEASE 2.1 


The following is a list of the functional changes that were made to Pascal/VS for 

Release 2.1. 

• A procedure (or function) at any nesting level may now be passed as a routine 
parameter. The previous restriction which required such procedures to be at the 
outermost nesting level of a module has been removed. 

• Two new options may be applied to files when they are opened: UCASE and NOCC. 

• Rules have been relaxed in passing fields of packed records by var to a routine. 

• The ’’STACK'’ and ’’HEAP” run time options have been added to control the amount at 
which the stack and heap are extended when an overflow occurs. 

• The syntax of a ’’structured constant” which contains non-simple constituents has 
been simplified. 


RELEASE 2.0 


The following is a list of the functional changes that were made to Pascal/VS for 

Release 2.0. 

• Pascal/VS now supports single precision floating point (32 bit) as well as dou¬ 
ble precision floating point (64 bit). 

• Files may be opened for updating with the UPDATE procedure. 

• Files may be opened for terminal input (TERMIN) and terminal output (TERMOUT) so 
that I/O may take place directly to the user’s terminal without going through 
the DDNAME interface. 

• The MAIN directive permits you to define a procedure that may be invoked from a 
non-Pascal environment. A procedure that uses this directive is not reentrant. 

• The REENTRANT directive permits you to define a procedure that may be invoked 
from a non-Pascal environment. A procedure that uses this directive is reen¬ 
trant. 

• A new predefined type> STRINGPTR» has been added that permits you to allocate 
strings with the NEW procedure whose maximum size is not defined until the invo- 
ca t i on of NEW . 

• A new parameter passing mechanism is provided that allows strings to be passed 
into a procedure or function without requiring you to specify the maximum size 
of the string on the formal parameter. 

• The maximum size of a string has been increased to 32767 characters. 

• The Pascal/VS compiler is now fully reentrant. 

• Code produced from the compiler will be reentrant if static storage is not modi- 
f i ed. 

• Pascal/VS programs may contain source lines up to 100 characters in length. 

• Files may be accessed based on relative record number (random access). 

• Run time errors may be intercepted by the user’s program. 

• Run time diagnostics have been improved. 

• Pascal/VS will flag extensions when the option ”LANGLVL(STD)” is used. 


Summary of Amendments 


V 
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• A mechanism has been provided so that Pascal/VS routines may be called from oth¬ 
er languages. 

• All record formats acceptable to QSAM are now supported by the Pascal/VS I/O 
facilities. 

• A procedure or function may now be exited by means of the goto statement. 

• You may now declare an array variable where each element of the array is a file. 

• You may define a file to be a field of a record structure. 

• Files may now be allocated in the heap (as a dynamic variable) and accessed via a 

pointer. 

• You may now define a subrange of INTEGER which is allocated to 3 bytes of 
storage. Control over signed or unsigned values is determined by the subrange. 

• Variables may be declared in the outermost scope of a SEGMENT. These variables 

are defined to overlay the variables in the outermost scope of the main program. 

• The PDSIN procedure opens a member of a library file (partitioned dataset) for 

input. 

• The PDSOUT procedure opens a member of a library file (partitioned dataset) for 
output. 

• A procedure or function that is declared as EXTERNAL may have its body defined 
later on in the same module. Such a routine becomes an entry point. 

• The CPAGE percent(%) statement conditionally does a page eject if less than a 
specified number of lines remain on the current listing page. 

• The MAXLENGTH function returns the maximum length that a string variable can 
assume. 

• The /(CHECK TRUNCATE option enables (or disables) the checking for truncation of 
strings. 

• The PASCAL VS exec for invoking the compiler under CMS has been modified so that 
the specification of the operands allows greater flexability. 

• New compiler options have been added» namely* LINECOUNT, PXREF» PAGEWIDTH, and 
LANGLVL. 

• The catalogued procedures for invoking Pascal/VS in OS Batch have been simpli¬ 
fied. 

• The format of the output listing has been modified so that longer source lines 
may be accomodated. 

• Multiple debugger commands may be entered on single line by using a semicolon 
( ; ) as a separator. 

• The format of the Pascal File Control Block has been modified. 

• Support is now provided for ANSI and machine control characters on output files. 

• Execution of a Pascal/VS program will terminate after a user determined number 
of non-fatal run time errors. 

• The debugger now supports breakpoints at the end of a procedure or function. 

• The Trace mode in the debugger provides information on when procedures are being 
exited. 

• The TRACE procedure now permits you to specify the file on which the traceback 
is to be written. 

• The Equate command of the debugger has been enhanced. 

• The debugger will print ’’uninitialized" when displaying a variable that has not 
been assigned. 


V i 
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1.0 INTRODUCTION TO PASCAL/VS 


”The language Pascal was designed by 
Professor Niklaus Wirth to satisfy two 
principal aims: 

♦ to make available a language suit¬ 
able for teaching programming as a 
systematic discipline based on cer¬ 
tain fundamental concepts clearly 
and naturally reflected by the lan¬ 
guage , 

• to define a language whose implemen¬ 
tations could be both reliable and 
efficient on then available comput¬ 
ers.” 

I (Pascal Draft Proposal ISO/TC 97/SC 5 
I N595» January, 1981) 

Pascal/VS is an extension to standard 
Pascal. The purpose of extending Pascal 
is to facilitate application program¬ 
ming requirements. Among the extensions 
are such features as separately compi1- 
able external routines, internal and 
external static data, and varying length 
character strings. 

Pascal Is of interest as a high level 
programming language for the following 
reasons: 

1.1 PASCAL LANGUAGE SUMMARY 


It provides constructs for defining 
data structures in a clear manner. 

It is suitable for applying struc¬ 
tured programming techniques. 

The language is relatively 
machine-independent. 

Its syntax and semantics allow 
extensive error diagnostics during 
compilation. 

A program written in the language 
can have extensive execution time 
checks. 

Its semantics allow efficient 
object code to be generated. 

Its syntax allows relatively easy 
compilation. 

The language is relatively well 
known and is growing in popularity. 


This section of the manual is meant to be a capsule summary of Pascal/VS. It should 
serve as a brief outline to the language. The details are explained in the remainder 
of this document. 


1.1.1 Syntax 

The syntax is described with an example-like format that summarizes the important 
features of the item. The following rules are the conventions used. 

... indicates that the item preceding this symbol may be repeated an 

arbitrary number of times. 

i X encloses items which are optional. 

C ] denote the standard square brackets of Pascal. 

item-comma-list indicates that the item may be repeated, separating each occurrence 
with a comma. 

refers to a sequence of one or more digits (”0"..”9”). 

refers to a sequence of one or more binary digits (”0” or ”1”). 

refers to a sequence of one or more hexadecimal digits (”0”..”9" or 
”A”..”F”). 

refers to an identifier. 

refers to either an identifier or an integer number in the range 
0..9999. 

refers to any one of: FORWARD, EXTERNAL, FORTRAN, MAIN, or 
REENTRANT. 


digit-list 

binary-digits 

hex-digits 

id 

label 

directive 
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field-list 

refers to the list of fields that compose the body of a record data 
type. 

1.1.2 Modules 

program 

is a self-contained and independently executable unit of code. 

program id [. ( id-comma-list ) JL ; 
declaration... 
compound-statement . 

SEGMENT 

is a shell in which procedures and functions may be separately com¬ 
piled. 

SEGMENT id ; 

declaration... . 

1.1.3 Declarations 

label 

is used to declare a label in a program^ procedure or function. 

label 

label-comma-list ; 

const 

declares an identifier that becomes synonymous with a compile time 
computable value. 

const 

id = constant-expression ; 

C. i d = constant-expression ; 2... 

type 

declares an identifier which is a usei—defined data type. 

type 

id = data-type ; 

1. i d = data-type ; A... 

var 

declares a local variable. 

var 

id-comma-list • data-type ; 

X id-comma-list : data-type ; A-.. 

def 

declares a variable which is defined in one module and may be refei— 
enced in other modules. 

def 

id-comma-list J data-type ; 

X id-comma-list J data-type i A- •• 

ref 

declares a variable which is defined in another module. 

ref 

id-comma-list J data-type ; 

X id-comma-list • data-type ; A* •• 

static 

declares a variable which persists for the entire execution of the 
program. 

Static 

id-comma-list s data-type ; 

X id-comma-list ’ data-type ; A* •• 

value 

assigns a value to a def or static variable at compile time. 

value 

variable constant-assignment-statement ; 

X variable == constant-assignment-statement ; A* •• 

2 Pascal/VS 
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procedure 


defines a unit of a module which may be invoked as a statement. 


procedure id t. ( parameter XJ parameter].* • • ] JL » 
directive ; 

or 

procedure id X ^ parameter X? parameterX**• ) X J 
declaration... 
compound-statement ; 

function defines a unit of a module which may be invoked and returns a value. 

function id X ( parameter X» parameterX*•• ) X • id ; 
directive ; 

or 

function id X ( parameter X» parameterX*•• ) X ' id ; 
declaration.., 
compound-statement ; 


1.1.4 Data-Tvpe s 


id 

enumeration 

subrange 

array 

record 


set 

f i le 

pointer 


is an identifier that was previously declared as a type, 
is a list of constants of a user-defined scalar data type. 

( id-comma-list ) 

is a continuous range of a scalar type. 

X packed X constant .. constant-expression 

is a data structure composed of a list of homogeneous elements. 

X packed X array C data-type ] of data-type 

is a data structure composed of a list of heterogeneous fields. 

X packed X record 

X id-comma-list ’ data-type ; X*•• 

X case Xid O id of 

constant-comma-list s ( field-list ) ; 

X constant-comma-list ' C field-list ) ; X*•• X 

end 

is a collection of zero or more scalar values. 

X packed X set of data-type 

is a sequence of data to be read or written by a Pascal program, 
file of data-type 

is a reference to a variable that is created by the programmer. 
3 i d 


1.1.5 Parameters 

value designates a pass-by-value parameter. 

id-comma-list ' id 

var designates a pass-by-reference (read/write) parameter. 

var id-comma-list s id 

const designates a pass-by-reference (read-only) parameter. 

const id-comma-list ? id 
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procedure is the mechanism whereby a procedure may be passed to the called 

procedure (function) and executed from there. 

procedure id i ( parameter parameter!... ) J. ; 

function is the mechanism whereby a function may be passed to the called pro¬ 

cedure (function) and executed from there. 

function id t. ( parameter X; parameter!... ) ! • id ; 


1.1.6 Statement s 


Every statement may be preceded with one label: 

X label: ! statement 

assert tests a condition that should be true and if not causes a runtime 

error to be produced. 

assert bool-expression 

assignment assigns a value to a variable. 

variable := expression 

case causes any one of a list of statements to be executed based upon the 

value of an expression. 

case expression of 

X constant-comma-list : statement ; !... 

X Otherwise 

statement X ? statement !•.. ! 

end 

compound is a series of statements enclosed within begin/end brackets. 

begin 

statement X J statement !... 
end 

continue resumes execution of the next iteration of the innermost loop. The 

termination condition is tested to determine if the loop should con¬ 
tinue. 

continue 

empty contains no executable code. 

for is a loop statement that modifies a control variable for each ite«— 

ation of the loop. 

for variable := expression tO expression dO 
statement 

or 

for variable := expression downto expression dO 
statement 

goto changes the flow of your program. 

goto label 

if causes one of two statements to be executed based on the evaluation 

of an expression. 

if bool-expression then 
statement 
X else 

statement ! 

leave terminates the execution of the innermost loop. Execution resumes 

as if the loop termination condition were true. 
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leave 


call invokes a procedure. At the conclusion of the procedure^ execution 

continues at the next statement. 

id i ( expression-comma-list ) 2 

repeat is a loop statement with the termination test occurring at the end 

of the loop. 

repeat 

statement E. i statement 2. . . 

until bool-expression 

return terminates the executing procedure (function) and returns control 

to the caller. 

return 

while is a loop statement with the termination test occurring at the 

beginning of the loop. 

while bool-expression do 
statement 

with permits complicated references to fields within a record to be 

treated as simple variables within a a statement. 

with variable-comma-list do 
statement 


1.1.7 Expressions 


An expression is composed of operands combined with operators. The operators have 
the following precedence^ 

not operator (highest) 
multiplying operators 
adding operators 
relational operators (lowest) 


1.1.8 Operands 


variable represents a unit of storage which may be referenced and altered. 

simple variable* id 

arrays variable [ expression 3 

fields variable . id 

pointers variable 2) 

constant represents a literal value. 


INTEGER 

REAL 

BOOLEAN 

CHAR 

string 

array 

record 


digit-1ist 

* hex-digits *X 
’ binary-digits 

digit-list . digit-list IE+/- digit-list2 

* hex-digits 'XR 
FALSE/TRUE 

EBCDIC character in single quotes 
EBCDIC characters in single quotes 

* hex-digits ’XC 

id ( expression [.s expression2 

E. f expression l.s expression2 2* • • ^ 
id ( expression expression2..• ) 


set-constructor refers to an operand that describes the values of a set. 


C expression i .. expression 2 

t. , expression 2 .. expression 2 2-• • 3 
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function-call refers to the invocation of a function. 

i d C. ( expression-comma-list ) J. 

parenthesizsd-expression is used to override the normal precedence of operators. 

( expression ) 


1.1.9 Special Symbols 


symbol 

meaning 

+ 

addition and set union operator 

- 

subtraction and set difference operator 


multiplication and set intersection operator 

/ 

division operator^ REAL results only 

- 

BOOLEAN not, one’s complement on INTEGER 


or set complement 

1 

BOOLEAN or, logical or on INTEGER 


BOOLEAN and, logical and on INTEGER 

Z. & 

BOOLEAN xor operator, logical xor on INTEGER 


and set exclusive union 

;r 

equality operator 

< 

less than operator 

< = 

less than or equal operator 

>= 

greater than or equal operator 

> 

greater than operator 

<> or -= 

not equal operator 

>> 

right logical shift on INTEGER 

<< 

left loaical shift on INTEGER 

1 1 

catenation operator 

: — 

assignment symbol 


period to end a module 

* 

field separator in a record 

r 

comma, used as a list separator 


colon, used to specify a definition 

i 

semicolon, used as a statement separator 

• • 

subrange notation 

f 

quote, used to begin and end string constants 

3) or -> 

pointer symbol 

( 

left parenthesis 

) 

right parenthesis 

i or ( . 

left square bracket 

i or . ) 

right square bracket 

{ or (X 

comment left brace (standard) 

} or ^ ) 

comment right brace (standard) 


comment left brace (alternate form) 


comment right brace (alternate form) 


1.1.lO Identifiers 


Identifiers are composed of the letters ”a” through "z”, the digits ”0” through ”9” 
and the special characters and An identifier must begin with a letter or 

and must be unique in the first 16 positions. There is no distinction between 
the an upper case letter and its lower case equivalent. 
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operator 

operation 

operands 

result 

- (not) 

boolean not 

BOOLEAN 

BOOLEAN 

(not) 

logical one’s 
complement 

INTEGER 

INTEGER 

-* (not) 

complement 

set of T 

set of T 


1.1.12 MultiPlvinq Operators 


operator 

operation 

operands 

result 


multi piication 

INTEGER 

INTEGER 



SHORTREAL 

SHORTREAL 



REAL 

REAL 



mi xed 

REAL 

/ 

real divisi on 

INTEGER 

REAL 



SHORTREAL 

SHORTREAL 



REAL 

REAL 



mi xed 

REAL 

di V 

integer divisi on 

INTEGER 

INTEGER 

mod 

modulo 

INTEGER 

INTEGER 

& (and) 

boolean and 

BOOLEAN 

BOOLEAN 

& (and) 

logical and 

INTEGER 

INTEGER 


set intersection 

set of t 

set of t 

1 1 

string catenation 

STRING 

STRING 

<< 

logical left shift 

INTEGER 

INTEGER 

>> 

logical right 

INTEGER 

INTEGER 


sh i ft 




1.1.13 Adding Operators 


operator 

operation 

operands 

result 

+ 

addition 

INTEGER 

INTEGER 



SHORTREAL 

SHORTREAL 



REAL 

REAL 



mi xed 

REAL 

+ 

set union 

set of t 

sat of t 

- 

subtraction 

INTEGER 

INTEGER 



SHORTREAL 

SHORTREAL 



REAL 

REAL 



mi xed 

REAL 

- 

set difference 

sat of t 

set of t 

1 (or) 

boolean or 

BOOLEAN 

BOOLEAN 

1 (or) 

logical or 

INTEGER 

INTEGER 

(xor) 

boolean xor 

BOOLEAN 

BOOLEAN 

(xor) 

logical xor 

INTEGER 

INTEGER 

(xor) 

exclusive union 

sat of t 

set of t 
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1.1.14 Relational Operators 


operator 

operation 

operands 

result 

= 

compare equal 

any set, scalar, pointer 
or string 

BOOLEAN 

<> (-=) 

not equal 

any set, scalar, pointer 
or string 

BOOLEAN 

< 

less than 

scalar type or string 

BOOLEAN 

< = 

compare < or = 

scalar type or string 

BOOLEAN 

< = 

subset 

set of t 

BOOLEAN 

> 

compare greater 

scalar type or string 

BOOLEAN 

> = 

compare > or = 

scalar type or string 

BOOLEAN 

> = 

superset 

set of t 

BOOLEAN 

in 

set membership 

t and set of t 

BOOLEAN 


1.1.15 Reserved Uords 


and 

end 

of 

space 

array 

f i le 

or 

static 

assert 

for 

otherwise 

then 

begin 

function 

packed 

to 

case 

goto 

procedure 

type 

const 

if 

program 

until 

continue 

in 

range 

value 

daf 

label 

record 

var 

di V 

leave 

ref 

whi le 

do 

mod 

repeat 

with 

downto 

nil 

return 

xor 

else 

not 

set 



1.1.16 Predgfingd Constants 


ALFALEN 

length of type ALFA, value is 8 


ALPHALEN 

length of type ALPHA, value is 

16 

FALSE 

constant of type 

BOOLEAN, FALSE < TRUE 

MAXINT 

maximum value of 

type INTEGER: 

2147483647 

MIMINT 

minimum value of 

type INTEGER: 

-2147483648 

TRUE 

constant of type 

BOOLEAN, TRUE 

> FALSE 

1.1.17 

Predefined Types 




ALFA 

packed array! 1..ALFALEN 1 

Of CHAR 


ALPHA 

packed array! 1..ALPHALEN 

] Of CHAR 


BOOLEAN 

data type composed of the values FALSE 

and TRUE 

CHAR 

character data type 



INTEGER 

integer data type 



REAL 

floating point represented 

in a 64 bit 

value 
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SHORTREAL 


floating point represented in a 32 bit value 


STRINGPTR is a predefined type that points to a STRING whose maximum length is 

determined when the STRING is allocated with NEW 

TEXT file of CHAR 

1.1.18 Predefined Variables 

INPUT default input file 

OUTPUT default output file 

1.1.19 Predefined Functions 

The following symbols represent parameters in the descriptions 
of the predefined functions and procedures. 

a = an array variable 
f = a file variable 
n = a positive integer expression 
p = pointer valued variable 
s = a string expression 
V = a variable 

X = any arthimetic expression 
ABS(X) computes the absolute value ”x” 

ARCTAN(x) returns the arctangent of ”x” 

CHR(n) returns the EBCDIC character whose ordinal value is ”n” 

CLOCK returns the number of micro-seconds of execution 

COLS(f) returns current column of file ”f” 

COMPRESS(s) replaces multiple blanks in ” 5 ” with one blank 

COS(X) returns the cosine of ”x” 

DELETE(£>>nl>n2) returns ”s” with characters ”nl” through ”n2” removed 
EOF(f) tests file ”f” for end-of-file condition 

EOLN(f) tests file ”f" for end-of-line condition 

EXP(x) computes the base of the natural log (e) raised to to the power "x” 

FLOATtnJ converts "n” to a floating point value 

HB0UND(«jC.»n2) determines the upper bound of array "a” 

HIGHEST(x) determines the maximum value the type of a scalar ”x" 

INDEX(slfS2) returns the location^ if presents of ”52” in ’’si” 

LBOUND(<3X.»n2J determines the lower bound of array ”a” 

LENGTH(U) determines the current length of string ”s” 

LN(x) returns the natural logarithm of the ”x” 

LOUESTtx) determines the minimum value the type of a scalar ”x” 

LTRIM(s) returns ”s” with leading blanks removed 

MAXCxX.»x2*••) determines the maximum value of a list of scalar expressions 
MAXLENGTH(S) determines the maximum length of string ”s” 
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MIN(xi,xl...) 
ODD(n) 

ORD(X) 

PARMS 

PRED(X) 

RANDOlKn) 

ROUND(X) 

SIN(X) 

SIZEOFtx) 

SQRT(X) 

SQR(XJ 
STR(a) 

SUBSTR(s,nl,n2) 

SUCC(X) 

TRIM(!») 

TRUNC(X) 


determines the minimum value of a list of scalar expressions 

returns TRUE if integer ”n” is odd 

converts a scalar value ”x" to an integer 

returns the system dependent invocation parameters 

obtains the predecessor of scalar expression ”x” 

returns a pseudo-random number, ”n” is the seed value or zero 

converts a floating point value to an integer value by rounding 

returns the sine of ”x” 

determines the memory size of a variable or type 
returns the square root of ”x" 
returns the square of ”x” 

converts array of characters ”a” to a string 
returns the substring of ”s” from ”nl" to "n2” 
obtains the successor of scalar ”x” 
returns ”s" with trailing blanks removed 

converts floating point expression ”x” to an integer by truncating 


1,1,20 Predefined Procedures 


CLOSEtf) 

DATETIMEtal,a2) 

DISPOSE(p) 

GET(fJ 

HALT 

MARKtp) 

NEUtp,i,xl...) 
PACK(al,x,a2) 
PAGEiCf)1 
PDSINCf ,S) 

PDSOUTtf ,S) 

PUT(f ] 

READ(|.f ,lvi,Vl,. 
READLNtif ,lvE.,vl 

READSTR(S,vi,vI, 

RELEASE(p) 

RESET(fi,Si) 


closes a file 

returns the current date in "al” and time of day in ”a2” 
deallocates a dynamic variable 

advances file pointer to the next element of input file "f” 

halts the programs execution 

creates a new heap, ”p” designates the heap 

allocates a dynamic variable from the most recent heap 

copies array ”al" starting at index ”n” to packed array ”a2" 

skips to the top of the next page 

opens file ”f” for input, ”s” designates the open options which must 
specify the member name 

opens file "f” for output, ”s” designates the open options which 
must specify the member name 

advances the file pointer to the next element of output file ”f” 

,) reads data from file ”f" into variable ”v” 

.,,) reads variable ”v” and then skips to end-of-line of TEXT file 

’»T ^Tf 

,,) reads data from string ”s" into variable ”v” 

destroys one or more heaps, ”p” designates the last heap to be 
destroyed 

opens file ”f" for input, "s” designates the optional open options 
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RETCODE(.n) sets the system return code 

REWRITEtfC.»s2) opens file ”f" for output, ”s” designates the optional open options 


SEEK(f»n) modifies the current position of file "f’ so that next GET (or PUT) 

reads (or writes) record number "n”, where record 1 is the first 
record of the file 


TERMIN(fi,sI) opens file ”f”for input from the users terminal, "s” designates the 
optional open options 


TERMOUT(fs2) opens file ”f”for output from the users terminal, "s" designates the 
optional open options 


TOKENCs,V) 


extracts tokens from string ”s” updating starting position "v" 


TRACECfl writes the procedure and function invocation history to file "f" 

UNPACKCS)lya2,n) copies packed array ”al” to array ”a2” beginning at index "n" 


UPDATE(fE.,S3.J opens file ”f” for update, a PUT immediately following a GET of a 

record of the file replaces that record, "s" designates the optional 
open options 

WRITE(X.f»2xC.» x2* • • ) writes the value of ”x” to file *’f" 

WRITELNt C.f • • 3 writes the value of ”x” and then writes an end-of-line to TEXT 

file ”f” 

WRITESTR(S»xX>x2...) writes the value of "x” to string "s” 


1.1.21 *4 Include Statements 


JiCHECK 
JiCPAGE n 

^include: 

%L1SJ ON/OFF 
5JMARGINS n m 

JJPAGE 

XPRINT ON/OFF 
?(SKIP n 
)(TITLE 


enables or disables execution time checking features. 

skips to the next page if less than ”n” lines remain on the current 
page 

includes source code from a library. 

enables or disables the pseudo-assembler listing. 

resets the left margin of the source program to ’’n” and the right 
margin to ”m". 

forces the source listing to start on a new page, 
enables or disables the source listing, 
inserts ”n" blank lines into the source listing, 
specifies a title for the listing. 
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THE BASE VOCABULARY 


2,1 IDENTIFIERS 




■> {letter}- 


where = 

(letter) is ’A 
(digit) is '0 V 
underscore is 


-Xdigi t)-> 

-> (letter)-> 

->(underscore)--> 


> ’b’ , 


Identifiers are names given to vari- 
ables, data types» procedures# func¬ 
tions# named constants and modules. 


external routines. You must make sure 
that identifiers used as external names 
are unique in the first 8 characters. 


correct ' 


I 

K9 

Hew_York 

AMOUNTS 


incorrect» 

5K 

NEW JERSEY 


Valid and Invalid Identifiers 


Pascal/VS permits identifiers of up to 
16 characters in length. You may use 
longer names but Pascal/VS will ignore 
the portion of the name longer than 16 
characters. You must assure identifiers 
are unique within the first 16 
positions. 

There is no distinction between lower 
and upper case letters within an identi¬ 
fier name. For example# the names 
’ALPHA’# ’alpha’# and ’Alpha’ are equiv¬ 
alent . 

There is an implementation restrictions 
on the naming of external variables and 


LEXICAL SCOPE OF IDENTIFIERS 


The area of the module where a partic¬ 
ular identifier can be referenced is 
called the lexica1 scope of the identi¬ 
fier (or simply scope). 

In general# scopes are dependent on the 
structure of routine declarations. 
Since routines may be nested within oth¬ 
er routines# a lexical level is associ¬ 
ated with each routine. In addition# 
record definitions define a lexical 
scope for the fields of the record. 
Within a lexical level# each identifier 
can be defined only once. A program 
module is at level 0# routines defined 
within the module are at level 1# in 
general# a routine defined in level i 
would be at level (i-»-l). The following 
diagram illustrates a nesting 
structure. 
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program M (level 0) 


procedure A (level 1) 


procedure B (level 2) 
type 

R = 

record 
R1 : . . . 

R2: . . . 
end; 


function C 

(level 3) 


procedure D (level 2) 


function X (level 1) 
rprocedure Y (level 2) 


procedure Z (level 2) 


The scope of an identifier is the entire 
routine (or module) in which it was 
declared; this includes all routines 
defined within the routine. The follow¬ 
ing table references the preceding dia¬ 
gram . 


identifiers 
declared in: 

are accessible in: 

Module M 

M,A,B,C,D,X,Y,Z 

procedure A 

A, B, C, D 

procedure B 

B,C 

type R 

B,C 

function C 

C 

procedure D 

D 

function X 

X,Y,Z 

procedure Y 

Y 

procedure Z 

Z 


If an identifier is declared in a rou¬ 
tine which is nested in the scope of 
another identifier with the same name, 
then the new identifier will be the one 
recognized when its name appears in the 
routine. The first identifier becomes 
inaccessible in the routine. In other 
words, the identifier declared at the 
inner most level is the one accessible. 

The scope of a field identifier defined 
within a record definition is limited to 
the record itself. The scope of a 
record may be accessed by either field 
referencing (see ’’Field Referencing” on 
page 68) or with the wi th-statement (see 
’’The With Statement” on page 100). 

The Pascal/VS compiler effectively 
inserts a prelude of declarations at the 
beginning of every module it compiles. 
These declarations consist of the prede¬ 
fined types, constants, and routines. 
The scope of the prelude encompasses the 
entire module. You may re-declare any 
identifier that is predefined if you 
would like to use the name for another 
purpose. 
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2.3 RESERVED MORDS 


Reserved Words j 

and 

end 

Of 

+ 

space 

array 

file 

or 

+ 

static 

+ assert 

for 

+ otherwise 


then 

begin 

function 

packed 


to 

case 

goto 

procedure 


type 

const 

if 

program 


until 

+ continue 

in 

+ range 

+ 

value 

+ daf 

label 

record 


var 

di V 

+ leave 

+ ref 


whi le 

do 

mod 

repeat 


with 

downto 

nil 

+ return 

+ 

xor 

else 

not 

set 



note: those words 

marked by '+* 

are not reserved in 

standard 

Pascal 


Pascal/VS reserves the identifiers 
shown above for expressing the syntax of 
the language. These reserved words may 
never be declared by you. Reserved 
words must be separated from other 
reserved words and identifiers by a spe¬ 


cial symbol, a comment, or at least one 
bl^ink. 

A lower case letter is treated as equiv¬ 
alent to the corresponding upper case 
letter in a reserved word. 
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2,4 SPECIAL SYMBOLS 



Special Symbols 

symbol 

meaning 

+ 

addition and set union operator 

- 

subtraction and set difference operator 


multiplication and set intersection operator 

/ 

division operator> REAL result only 


BOOLEAN not, one’s complement on INTEGER or set complement 

1 

BOOLEAN or, logical or on INTEGER 

& 

BOOLEAN and, logical and on INTEGER 

&& 

BOOLEAN xor operator, logical xor on INTEGER 
and set exclusive union 

= 

equality operator 

< 

less than operator 

< = 

less than or equal operator 

> = 

greater than or equal operator 

> 

greater than operator 

<> or •^ = 

not equal operator 

>> 

right logical shift on INTEGER 

<< 

left logical shift on INTEGER 

1 1 

catenation operator 

; = 

assignment symbol 


period to end a module 


field separator in a record 

f 

comma, used as a list separator 

: 

colon, used to specify a definition 

9 

semicolon, used as a statement separator 

* , 

subrange notation 

f 

quote, used to begin and end string constants 

C or -> 

pointer symbol 

( 

left parenthesis 

) 

right parenthesis 

C or ( . 

left square bracket 

lor.) 

right square bracket 

{ or ()( 

comment left brace (standard) 

) or ) 

comment right brace (standard) 

/X 

comment left brace (alternate form) 

K/ 

comment right brace (alternate form) 


Symbol 

Special symbols used by Pascal/VS are 
listed above. Several special symbols I 

may also be written as a reserved word. i 

These symbols are shown in tl-»e following && 

table. 


Reserved l4ord 
not 
or 
and 
xor 
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2.5 COMMENTS 


Pascal/VS supports two forms of 
comments' ... }’ and '/)«...)(/'. The 
curved braces are the standard comment 
symbol in Pascal. The symbols and 

are considered by the compiler to 
identical to left and right braces. The 
form of comment using and is 

considered to be distinct from the form 
using braces. 

When the compiler encounters the symbol 
’{’» it will bypass all characters^ 
including end-of-line» until the symbol 
is encountered. Likewise^ all 
characters following VX* will be 
bypassed until the symbol ’K/’ is detec¬ 
ted. As a results either form may be 
used to enclose the other; for example 
I is one comment. One use 

I of these two forms of comments is to use 


one for ordinary comments and use the 
other to block out temporary sections of 
code* a */)(...comment could be used 
to indicate a temporary piece of code, 
or perhaps debugging statements. 

A comment may be placed anywhere in a 
module where a blank would be 
acceptable. 


/X 

if A = 10 then { this statement is 
for program 
debugging } 

WRITE(»A IS EQUAL TO TEN’); 

X/ 

Example of a nested Comment 
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g.6 CONSTANTS 


Syntax: 


unsiqned-integor: 

'> {di gi t}- 




-> ’ -j-->{binary digit)--j-> *B-> 

--> I j.->{hex-digit}-j-> *X-> 

real-number • 

-> ’ - 1 -Xhex-digit)-j-> *XR- 

-> (digit) 


T-: 

-I-> (digit)- 

L<- 


■>n 


r<- 

<- 


t;: 


■> E 


-> + 
■> - 


■Xdigi t)- 




unsiqned-number• 


■>(un5igned-i nteger)->-r 

-> (real-number)->-* 


string' 


-> • 


—] - 1 - 

I -{character)<-' 

I-> I -^->{hGX-digit)-j-> *XC 


.>j 


unsigned-constant- 

——-> (unsi gned-number)- 

-> (str i ng)->- 

-> (id-’ constant)->- 

-> nji >. 

constant• 


- 1 -> (unsi gned-constant)- 1 - 

*-[——> + - 1 -> (unsi gned-number)->■* 

I-> _ - 

where • 

(binary-digit) is '0* or ’1*. 

(digit) is 'O' through '9'; 

(hex-digit) is 'O' through '9' and *A* through 'F' 
(character) is any EBCDIC character. 


> 


Constants can be divided into several 
categories according to the predefined 
type to which they belong. An unsigned 
number will conform to either a REAL or 
an INTEGER. Strings will conform to the 
type STRING or packed arrayCl..n] of 
CHAR. In addition, if the string is one 
character in length, it will conform to 
the type CHAR. 


If a single quote is to be used within a 
string, then the quote must be written 
twice. Lower case and upper cjse let¬ 
ters are distinct within string con¬ 
stants. String literals are not 
permitted to extend past the end of line 
of a source line. Longer strings can be 
formed by catenating shorter strings. 
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Nil i 5 of a special type which will con¬ 
form to any pointer type. It represents 
a unique pointer value which is not a 
valid address. 

The constants TRUE and FALSE are prede¬ 
fined in the language and are of the 
standard type BOOLEAN. 

+ Integer hexadecimal constants are 
+ enclosed in quotes and suffixed with an 
+ ’X’ or ’x'. Integer binary constants 
+ are enclosed in quotes and suffixed with 
+ a ’ B ’ or ’ b ’ . 

4* 

+ Hexadecimal constants may be used in any 
+ context where an integer constant is 
+ appropriate. If you do not specify 8 
+ hexadecimal digits (i.e. 4 bytes)^ Pas- 
+ cal/VS assumes that the digits not sup- 
+ plied are zeros on the left. For 
+ example;. ’F’x is the value 15. 

+ 

+ Floating point hexadecimal constants 
+ are enclosed in quotes and suffixed with 
+ an ’XR' or 'xr’. Such constants may be 
+ used in any context where a real con- 
+ stant is appropriate. If you do not 
+ specify 16 hexadecimal digits (i.e. 8 
+ bytes)> Pascal/VS assumes that the dig- 
+ its not supplied are zeros on the right. 
+ For example, ’4110’xr is the same as 
+ *411000000000000’xr. 

+ 

+ String hexadecimal constants are 
+ enclosed in quotes and suffixed with an 
+ 'XC* or 'xc*. Such constants may be 
+ used in any context where a string con- 
+ stant is appropriate. There must be an 


+ even number of digits within a hexadeci- 
+ mal string constant; that is, you must 
+ specify each character fully that is to 
+ be in the string. 

The symbol *E’ or *e' when used in a 
real-number expresses 'ten to the power 

of’ . 

+ Pascal/VS permits constant expressions 
+ in places where the Pascal standard only 
+ permits constants. Constant expres- 
+ sions are evaluated and replaced by a 
+ single result at compile time. See 
+ "Constant Expressions" on page 76 for a 
+ description of constant expressions. 


constant matches standard type 


0 

INTEGER 

-500 

INTEGER 

1 . 0 

REAL 

314159E-5 

REAL 

OEO 

REAL 

1.OEIO 

REAL 

TRUE 

BOOLEAN 

’FF’X 

INTEGER 

’A’ 

CHAR 

’ABC’ 

STRING 

’ClC2C2’xc 

STRING 

’4E800000FFFFFFFF’xr 

REAL 

’ abc ’ 

STRING 

1 1 

STRING 

fill 

CHAR 

1 1 

CHAR 

I I 

STRING 

’Thats’’s all ’ 

STRING 


Examples of Constants 


The Base Vocabulary 
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+ 2.7 STRUCTURED CONSTANTS 
+ 

-f 


Syntax ‘ 


structured-constant« 

-> (record-structure)-r-> 


t::: 


>(array-structure) 




record-structure* 

-Xid^type)-> ( 

array-structure* 


T-1; 

L<- 


■>(constant-expr) 
- , < 


,-> 


_I 


->(id:type)-> (->-] 

<-J 

1-----> (constant-expr)-’ (repetition) 


TT 


— ^ ; irepet: 111 on / --j-j-j- 


- 1 - 1 -!-> )-> 


I_ 


L<- <- 


I 

J 


repetition * 

->(constant-expr) 

note: must evaluate to positive integer. 


- > 


+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

1 Structured constants are constants 
+ which are of a structured type. The 
+ type of the constant is determined by 
+ the type identifier which is used in its 
+ definition. These constants may be used 
+ in constant declarations, value decla- 
+ rations or in executable statements. 

+ 

j There are two kinds of structured con- 
1 stants: one is used for arrays and the 
+ second is used to specify records. 

+ 

+ Array constants are specified by a list 
+ of constant expressions where each 
+ expression defines one element of the 
+ array. See ’’Constant Expressions” on 
+ page 76 for a description 

+ of constant expressions. You may omit 
+ an element of the array within the list 
+ in which case the value of that element 
+ is not defined. Elements may be omitted 
+ at the end of the array in which case 
+ the value of those elements are also not 
+ defined. You may follow the constant 
+ expression with a colon and a repetition 
+ expression; this is used to specify that 
+ the first constant expression is to be 
+ repeated. 


I The second kind of structured constant 
+ is used to specify records. Record con- 
+ stants are specified by a list of con- 
+ stant expressions where each expression 
defines one field of the record in the 
order declared. You may omit a field of 
the record within the list by specifying 
nothing between two commas, in which 
+ case the value of that field is not 
+ defined. 

+ 

Values within the list may correspond to 
fields of a redord’s variant part. In 
order for the compiler to know which 
variant is being referenced, the tag 
field value must be specified immediate¬ 
ly prior to those values which are to be 
assigned to the variant fields. (See the 
examples below.) The tag field must be 
specified even if it does not exist as a 
field. (This occurs when only a tag type 
is specified.)^ 

The type identifier that begins a struc¬ 
tured constant may be omitted if the 
structured constant is imbedded within 
another structured constant. This sim¬ 
plifies the syntax for structured con¬ 
stants which are multidimensional 


If the tag field is a "refei—back” type (see ’’Variant Part” on page 45) then 
it will need to be specified twice in the list: once to be assigned a value, 
and again to identify the variant being referenced. 
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3.0 STRUCTURE OF A MODULE 



A module is an independently compilable 
unit of code. There are tNo types of 
modules in Pascal/VS: the program module 
and the segment module. 


The program is the module which gains 
initial control when the compiled pro¬ 
gram is invoked from the system loader. 
It is effectively a procedure that the 
loader invokes. The body of a program 


Structure of a Module 
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module is identical to the body of a 
procedure. 

+ A segment module may be compiled as a 
+ unit independent of the program module. 
+ It consists of routines that are to be 
+ linked into the final program prior to 
+ execution. Data is passed to routines 
+ through parameters and external Vani¬ 
na ables. Segments are useful in breaking 
+ up large Pascal/VS programs into smaller 
+ units. 

The global automatic variables of the 
program module may be accessed in a seg¬ 
ment module. See ”The Var Declaration” 
on page 26 for an explanation. 

The identifier following the reserved 
word ’’program” must be a unique external 
name. The identifier following the word 
’’SEGMENT” may be the same as one of the 
EXTERNAL routines in the segment or may 
be a unique external name. Thus» a 
function called SIN could be in a seg¬ 
ment called SIN. An external name is an 
identifier for a program^ segments def 
I or ref variable^ EXTERNAL routine> MAIN 
1 procedure or a REENTRANT procedure. 


The optional identifier list following 
the program identifier is not used by 
Pascal/VS. The identifiers will be 
ignored. 

A program is formed by linking a program 
module with segment modules (if any) and 
with the Pascal/VS execution library and 
libraries that you may supply. 

+ Pascal/VS allows declarations to be giv- 
+ en in any order. This is an extension 
+ to Pascal and is provided primarily to 
+ permit source that is INCLUDEd during 
+ compilation to be independent of any 
+ ordering already established in the mod- 
+ ule. The standard ordering for 
+ declarations is shown in the diagram for 
+ declarations. (For a description of the 
+ INCLUDE facility see ’’The ^INCLUDE 
+ Statement” on page 146.) 

Every identifier must be predefined or 
declared by you before it is used. 
There is one exception to this rule-' a 
definition of a pointer may refer to an 
identifier before it is declared. The 
identifier must be declared later or a 
compile-time’ diagnostic will be 
produced. 


Pascal/VS program 


modules 


program-module 


_r 1 

_1 

1 

segment-modules 









1_ 




execution-library 






program EXAMPLE; 
var 

I •' INTEGER; 
begin 

for l:=0 to 1000 do 
if I mod 7=0 then 
WRITELN( 1:5, 

’ IS DIVISIBLE BY SEVEN’) 

end. 

Example of a Program Module 


SEGMENT COSINE; 
function COSINE 

(X : REAL ) : REAL; EXTERNAL; 
function COSINE; 
var S: REAL; 
begin 

S := SIN(X); 

COSINE := SQRTd.O - S^S) 
end; . 

Example of a Segment Module 
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4.0 PASCAL/VS DECLARATIONS 


Pascal/VS provides you with 10 types of 
declarations• 

• label 

• const 

• type 

• var 


+ • 

+ 

+ • 

+ 

+ • 

+ 

+ • 


def 

ref 

stat i c 
value 
procedure 
function 


4.1 THE LABEL DECLARATION 


Syntax *• 
label-del• 

-> lab^l - 1 ->{label}- 1 -> ;-> 

L<- , <-1 

label• 

--> gned-i nteger}- 1 ---> 

->{id}->-J 

Note* the values of the unsigned integer must be in the subrange 0..9999. 


A label declaration is used to declare 
labels which will appear in the routine 
and will be referenced by a goto state¬ 
ment within the routine. All labels 
defined within a routine must be 
declared in a label declaration within 
the routine. 

A label ^ay be either an unsigned inte¬ 
ger or an identifier. If the value is 
an unsigned integer it must be in the 
range 0 to 9999. 


label 

10 , 

Label 

1 , 

2 , 

Error 


A, 


exit; 


A Label Declaration 
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4.2 THE CONST DECLARATION 


Syntax: 



A constant declaration allows you to 
assign identifiers that are to be used 
as synonyms for constant expressions. 
The type of a constant identifier is 
determined by the type of the expression 
in the declaration. 


const 

BLANK 

BLANKS 

FIFTY 

A 

B 

C_SQUARED 

0RD_0F_A 

PI 

MASK 

ALFALEN 

ALPHALEN 

LETTERS 

MAXREAL 


50; 

FIFTY; 

FIFTY 10/(3 + 2); 

A^A + Bi<B; 

0RD(’A'); 
3.14159265358; 

'8000’X I ’0400»X; 

8 ; 

16; 

C ’A»..’Z»,] 
’7FFFFFFFFFFFFFFF’xr; 


Constant Declarations 
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4.3 THE TYPE DECLARATION 



A type declaration allous you to define 
a data type and associate a name to that 
type. Once declared^ such a name may be 
used in the same way as a predefined 
type name. 


type 

{ all of the following types } 

{ are predefined in Pascal/VS } 

INTEGER = MININT..MAXINT; 

BOOLEAN = (FALSE,TRUE); 

ALFA = packed arrayCl..ALFALEN] 
of CHAR; 

ALPHA = packed arrayCl..ALPHALEN3 
of CHAR; 

TEXT = file Of CHAR; 

Type Declarations 


Pascal/VS Declarations 


25 







4.4 THE VAR DECLARATION 


Syntax• 


vai—del• 



The var declaration is used to declare 
automatic v a riables. Automatic vari¬ 
ables are allocated when the routine is 
invoked^ and are de-allocated when the 
corresponding return is made. If the 
routine is invoked a second time, before 
an initial invocation completes (a 
recursive call), the local automatic 
variables will be allocated again in a 
stack-like manner. The variables allo¬ 
cated for the first invocation become 
inaccessible until the recursive call 
completes. 

Commas are used in the declaration to 
separate two or more identifiers that 
are being declared of the same type. 
This is a shorthand notation for two 
separate declarations. 


var 

I : INTEGER; 

SYSIN : TEXT; 

X, 

Y, 

Z : REAL; 

CARD : 

record 

RANK : 1..13; 

SUIT : (SPADE,HEART,DIAMOND,CLUB) 

end; 


Example of a Var Declaration 


Variables which are to be accessed 
across modules should be declared as dsf 
variables (see ’’The Def/Ref 

Declaration” on page 28), but if 
reentrancy is required, then a mechanism 
is required that does not rely on static 
storage. 


That is, those variables declared wi 
nesting level of the main program. 

That is, unpredictable errors can oc 
segment do ndt match those in the assc 
no way of checking the integrity. 
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The global automatic variables of the 
main program^ may be accessed from a 
segment module. The storage for auto¬ 
matic variables declared in the outei— 
most level of a segment are mapped 
directly on top of the main program 
global variables. Therefore, to access 
the main program globals, a segment mod¬ 
ule must have an identical copy of the 
main program’s variable declarations. 
This mechanism is not as safe^ and as 
convenient as using def variables. 

If the variables of the main program are 
to be accessable across modules then the 
/(INCLUDE facility should be used so that 
identical copies of the variable’s dec¬ 
larations can be included in all 
modules. (See ’’The ^INCLUDE Statement” 
on page 146). 


program MAIN; 
var 

I : INTEGER; 

X, 

Y : REAL; 

J : INTEGER; 

... (remainder of program module} 

SEGMENT SEG; 

var 

I : INTEGER; 

X, 

Y : REAL; 

J •' INTEGER; 

... (remainder of segment module} 

Example of a Var Declarations 
Shared between Programs and Segments 


h the var construct in the outermost 

ur when the variables declared in a 
iated main program. The compiler has 
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+ 4.5 THE STATIC DECLARATION 
+ 

+ 



+ 

+ The static declaration is used to 
+ declare static variables. The variables 
+ declared in this way are allocated prior 
+ to program execution and exist for the 
+ life of the program’s execution. 

+ 

+ Static variables can be referenced 
+ according to the lexical scoping rules. 
+ Two static variables in different scopes 
+ are different variables even though they 
+ have the same name. 

+ 

+ Data in static variables that are local 
+ to a routine will be preserved over sep- 
+ arate invocations of the routine. Such 
+ a routine called recursively will access 
+ the same instance of each static vari- 
+ able. 


+ Static variables may be initialised a 
+ compile-time by the use of a value dec 
+ laration. 

+ 

I Programs which modify static variable 
1 are not reentrant. 

+ - 

+ 

+ static 

+ SYSPRINT : TEXT; 

+ X,Y: REAL; 

+ 

+ Example of a Static Declaration 

+ 

+ - 
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+ 4,6 THE DEF/REF DECLARATION 

+ 

+ 



+ The def/ref declarations are used to 
+ declare external variables. External 
+ variables are allocated prior to exe- 
+ cution and can be accessed from more 
+ than one module. All identifiers that 
+ are to be used as external names must be 
+ unique in the first eight characters. 

+ 

+ If an external variable with a partic- 
+ ular name is declared in several 
+ modules, a single common storage 
+ location will be associated with each 
+ such variable. An external variable 
+ must be declared with identical types in 
+ each module; the programmer is responsi- 
+ ble for assuring that the types are the 
+ same. 

+ 

+ The def declaration specifies that the 
+ program loader is responsible for genei— 
+ ating the common storage for the vari- 
+ able. The ref declaration specifies 
+ that storage for the variable is defined 
+ in another module (or in the runtime 
+ environment). Ref declared variables 
+ will remain unresolved until the encom- 
+ passing module is compiled and linked 
+ with a module in which the variable is 
+ declared as a def variable or defined in 
+ a non-Pascal CSECT or i n an assembly 
+ language COM. The expected use of ref 
+ variables is to access external data 
+ declared in non-Pasca1/VS programs such 
+ as those written in assembly language. 

+ 

+ A def or ref variable may be declared 
+ local to a routine; the same scope rules 
+ apply as for any other declared identi- 
+ fier. However, if the name of the vari- 
+ able is declared in another scope (even 
+ in another module) as a def or ref vari- 
+ able, both occurrences of the variable 
+ will reference the same storage. 

+ 

+ In the following example, the variable X 
+ in procedures A, B, and C references the 


+ same storage; however, the variables X 
+ declared in segment P and procedure D 
+ each refer to storage that is separate 
+ from the external variable X. 

+ 

+ Def variables may be initialized at com- 
+ pile-time by the use of a value declara- 
+ t i on . 

+ 

1 Programs which modify def, ref, or stat- 
1 ic variables are not reentrant. 

+ - 

+ 

+ SEGMENT M; 

+ procedure A; 

+ def X: REAL; { same as X in B } 

+ begin 

+ ... 

+ end; 

+ 

+ procedure B; 

+ daf X: REAL; C same as X in A } 

+ begin 

+ ... 

+ end;. 

+ 

+ 

+ SEGMENT P; 

+ static X: REAL;{ local to P } 

+ procedure C; 

+ 

+ ref X: REAL; { same as X in A,B} 

+ begin 

+ ... 

+ end; 

+ 

+ procedure D; 

+ var Xj REAL; { local to D } 

+ begin 

« 

+ end;. 

+ 

+ Examples of Def and Ref Declarations 
+ 

+ -- 
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+ 4.7 THE VALUE DECLARATION 
+ 



+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ The value declaration is used to specify 
+ an initial value for static and def vai— 
+ iables. The declaration is composed of 
+ a list of value-assignment statements 
+ separated by semicolons. The assignment 
+ statements in a value declaration are of 
+ the same form as the assignment state- 
+ ments in the body of a routine except 
+ that all subscripts and expressions must 
+ be able to be evaluated at compile time. 
+ 

+- 

+ 

+ type 

+ COMPLEX = record 

+ RE,IM: REAL 

+ end; 

+ VECTOR = arrayCl..?] of INTEGER; 

+ 

+ static 

+ C: COMPLEX; 

+ V: VECTOR; 

+ Vl: VECTOR; 

+ 

+ def 

+ I : INTEGER; 

+ Q : array[l..lO] of COMPLEX; 

+ 

+ { the following assignments will } 

+ { take place at compile time } 

+ value 
+ C 

+ V 

+ VI 

+ VC2] 

+ V[3] 

+ I 

+ QCll.RE 

+ QCll.IM 

+ 

+ Example of a Value Declaration 

+ 

+- 


+ If a def variable is initialized with a 
+ value declaration in one module, you may 
+ not use a value declaration on that var- 
+ iable in another module. The compiler 
+ will not check this violation, however a 
+ diagnostic will be generated when you 
+ combine the modules into a single load 
+ module by the system loader. 

+ ----— 

+ 

+ type 

I CUBE = arrayC1..10,1..10,1.. 103 
I of REAL; 

+ static 

+ BLOCK •• CUBE*- 

+ 

+ { the following assignments will } 

+ { take place at compile time } 

+ value 
+ BLOCK := 

I CUBEC ( (0.0:10):10 ):10 ); 

4 - 

+ Example of Intializing 

+ a 3 Dimensional Array 

- 1 - 

+ - 


= C0MPLEX(3.0,4.0); 
= VECTOR(l,0i5,7); 

= VECTORC,,,4) ; 

= 2; 

= 3^4-1; 

= 0 ; 

= 3.1415926 / 2; 

= 1.414; 
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5.0 TYPES 


Syntax• 


t yp e ,:. 

--> {id: type}- 

->{enumerated-scalai—type) 

-> Csubrange-scalar-type} — 

->{array-type}- 

->(record-type}- 

->{set-type}- 

->{file-type}- 

->(pointei—type}- 


>■1 

>- 

>- 

>- 

>- 


>- 

>-■ 


> 


A data type determines the kind of val¬ 
ues that a variable of that type can 
assume. Pascal/VS allows you to define 
new data types with the type 
declaration. The data type mechanism is 
a very important part of Pascal/VS. 
With it you can describe your data with 
great clarity. 

There are several mechanisms that can be 
used to define a type; each mechanism 
allows the new data type to have certain 
properties. All data types can be clas¬ 
sified as either scalar, pointer, or 
structured. 

You define the data type of a variable 
when the variable is declared. A previ¬ 
ous type declaration allows an identifi¬ 
er to b€! associated with that type. Such 
an identifier can be used wherever a 
type definition is needed^ in a variable 
declaration (var, static, def, or ref), 
as a parameter, in a procedure or func¬ 
tion, in a field declaration within a 
record definition, or in another type 
declaration. 


+ 5.1 A NOTE ABOUT STRINGS 
+ 

+ 

Standard Pascal defines the term 
’’string" as a variable or constant which 
has an associated type of 
"packed array[l..n] of CHAR”, where n is 
a positive integer constant. 

Pascal/VS supports varying length 
strings; that is, strings which have 
lengths that vary at execution time. A 
variable may be declared as a varying 
length string with the predefined type 
STRING (see "The Type STRING" on page 
51). 


Throughout this manual the term "string” 
shall refer to an object of the prede¬ 
fined type STRING. 


5.2 TYPE COMPATIBILITY 


Pascal/VS supports strong typing of 
data. The strong typing permits 
Pascal/VS to check the validity of many 
operations at compile time; this helps 
to produce reliable programs at exe¬ 
cution time. Strong typing puts strict 
rules on what data types are considered 
to be the same. These rules, called 
type compatibility, requires you to 
carefully declare data. 


5.2.1 Implicit Type Conversion 


In general, Pascal/VS does not perform 
implicit type conversions on data. The 
only implicit conversions that 
Pascal/VS permits are* 

1. An INTEGER will be converted to a 
REAL (SHORTREAL) when one operand of 
a binary operation is an INTEGER and 
the other is a REAL (SHORTREAL). 

2. An INTEGER will be converted to a 
REAL (SHORTREAL) when assigning an 
INTEGER to a REAL (SHORTREAL) vari- 
abl e. 

3. An INTEGER will be converted to a 
REAL if it is used in a floating 
point divide operation (’/’). 
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4. An INTEGER will be converted to a 
REAL (SHORTREAL) if it is passed by 
value or passed by const to a param¬ 
eter requiring a REAL (SHORTREAL) 
value. 

5. A SHORTREAL will be converted to a 
REAL when one operand of a binary 
operation is a SHORTREAL and the 
other is a REAL. 

6. A SHORTREAL will be converted to a 
REAL when assigning a SHORTREAL to a 
REAL variable. 

7. A SHORTREAL will be converted to a 
REAL if it is passed by value or 
passed by const to a parameter 
requiring a REAL value. 

+ 8. A string will be converted to a 

+ ’packed arrayCl..n] of CHAR’ on 

+ assignment. The string will be pad- 

+ ded with blanks on the right if it 

+ is shorter than the array to which 

+ it is being assigned. Truncation 

+ will raise a runtime error if check- 

+ ing is enabled. 

+ 

+9. A string being passed by value or 

+ passed by const to a formal parame- 

+ ter that requires a 

+ ’packed arrayCl..n] of CHAR' will 

+ be converted. The string will be 

+ padded with blanks on the right if 

+ it is shorter than the array to 

+ which it is being passed. Trun- 

+ cation will raise a runtime error if 

+ checking is enabled. 

+ 


5.2,2 Same Types 


Two variables are said to be of the same 
type if the declaration of the 
variables: 

• refer to the same type identifier; 

• or» refer to different type identi¬ 
fiers which have been defined as 
equivalent by a type definition of 
the form-' 

type T1 = T2 


5.2.3 Compatible Types 


Operations can be performed between two 
values that are of co mpatible types. 
Two types are said to be compatible ifs 

• the types are the same; 

• one type is a subrange of the other 
or they are both subranges of the 
same type; 

• both types are strings; 

+ • one value is a string literal and 
+ the other is a 'packed arrayCl..n] 

+ of CHAR'; 

• one value is a string literal of one 
character and the other is a CHAR; 

• they are set types with compatible 
base types; 

• or, they are both 

'packed array[l..n] of CHAR' with 
the same number of elements. 

Furthermore, any object which i s of a 
set type is compatible with the empty 
set. And, any object which is a pointer 
type is compatible with the value nil. 


5.2.4 Assignment Compatible Types 


A value may be assigned to a variable if 
the types are assignment compatible. An 
expression E is said to be assignment 
compatible with variable V ifs 

• the types are same type and neither 
is a file type; 

• V i s of type REAL and E is compat¬ 
ible with type INTEGER; 

• Visa compatible subrange of E and 
the value to be assigned is within 
the allowable subrange of V; 

• V and E have compatible set types 
and all members of E are permissible 
members of V; or, 

• V is a 'packed arrayCl..n] of CHAR' 
and E i s a string. 
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type 

X = arrayC 1..10 ] of 

INTEGER; 

DAYS = (MON, TUES, WED, THURS, 
FRI, SAT, SUN); 

WEEKDAY = MON .. FRI; 


var 


A •• 

arrayC 1..10 

] 

of 


INTEGER; 



B : 

array! 1..10 

] 

of 


INTEGER; 



C, 




D : 

array! 1..10 

] 

of 


CHAR; 



E •• 

X; 



F : 

X; 



wi; 

DAYS; 



W2: 

WEEKDAY 



i s 

compatible 




wi th 



A 

A 



B 

B 



C 

C, D 



D 

D, C 



E 

E, F 



F 

F, E 



Wl 

Wl, W2 



W2 

W2, Wl 




Examples of Compatibility 
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5.3 THE ENUMERATED SCALAR 



An ©numerated scalar is formed by list¬ 
ing each value that is permitted for a 
variable of this type. Each value is an 
identifier which is treated as a 
self-defining constant. This allows a 
meaningful name to be associated with 
each value of a variable of the type. 


type 


DAYS 

= (MON, 

TUES, 

WED, 

THURS 


FRI, 

SAT, 

SUN) 

} 

MONTHS 

= (JAN, 

FEB, 

MAR, 

APR, 


MAY, 

JUN, 

JUL, 

AUG, 


SEP, 

OCT, 

NOV, 

DEC); 


var 

SHAPE : (TRIANGLE, RECTANGLE, 

SQUARE, CIRCLE); 

REC : record 

SUIT: (SPADE, HEART, 

DIAMOND, CLUB); 

week: days 
end; 

MONTH : MONTHS; 

Enumerated Scalars 


An enumerated scalar type definition 
declares the identifiers in the enumei— 
ation list as constants of the scalar 


type being defined. The lexical scope 
of the newly defined constants is the 
same as that of any other identifier 
declared explicitly at the same lexical 
level. 

These constants are ordered such that 
the first value is less than the second, 
the second less than the third and so 
forth. In the first example, MON < TUES 
< WED < ... < SUN. There is no value 
less than the first or greater than the 
last. 

The following predefined functions 
operate on expressions of a scalar type 
(see the indicated section for more 
detaiIs): 

Function 
ORD 

+ MAX 

+ MIN 

PRED 
SUCC 

+ LOWEST 

+ HIGHEST 


Notes: 

1. Two enumerated scalar type defi¬ 
nitions must not have any elements 
of the same name in the same lexical 
scope. 

2. The standard type BOOLEAN is defined 
as (FALSE, TRUE). 
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5.4 THE SUBRANGE SCALAR 


Syntax• 



The subrange type i s a subset of consec¬ 
utive values of a previously defined 
scalar type. Any operation which is 
permissible on a scalar type is also 
permissible on any subrange of it. 

A subrange is defined by specifying the 
minimum and maximum values that will be 
permitted for data declared with that 
type. For subranges that are packed, 
Pascal/VS will assign the smallest num¬ 
ber of bytes required to represent a 
value of that type. 

If the reserved word range is used in 
the subrange definition, then both the 
minimum and maximum values may be any 
expression that can be computed at com¬ 
pile time. If the range prefix is not 
employed then the minimum value of the 
range must be a simple constant. 

The following predefined functions 
operate on expressions of a scalar type 
(see the indicated section for more 
deta i 1 s) *• 



Function 

Page 


ORD 

126 

+ 

MAX 

130 

+ 

MIN 

130 


PRIED 

131 


SUCC 

131 

+ 

LOWEST 

123 

+ 

HIGHEST 

123 


Notes! 

1. A subrange of the standard type REAL 
is not permitted. 

2. The number of values in a subrange 
of type CHAR is determined by the 
collating sequence of the EBCDIC 
character set. 

3. The lower bound of a subrange defi¬ 
nition that is not prefixed with 


•range’ must be a simple constant 
instead of a generalized constant 
expression. 


const 

SIZE = 1000; 


type 


DAYS = 

(SU, 

MO, 

TU, 

WE, 


TH, 

FR, 

SA); 


MONTHS = 

(JAN, 

FEB, 

MAR, 

APR, 


MAY, 

JUN, 

JUL, 

AUG, 


SEP, 

OCT, 

NOV, 

DEC); 

UPPER CASE = 

•A’ . 

. ’Z' 



ONE_HUNDRED = 

0 . . 

99; 




CODES = range 

CHR(O)..CHR(255); 
INDEX = packed 1 .. SlZE+1; 


var 

WORKADAY : no .. FR; 

SUnnER : JUN .. AUG; 

SriALLINT : packed O . .255; 

YEAR : 1900 .. 2000; 


Subrange Scalars 


The following example illustrates that 
two subrange types may be defined over 
the same base type. Operations are pei— 
mitted between these two variables 
because they have the same base type. 


var 

NEG : MININT .. -1; 

POS : 1 .. MAXINIT; 


Subranges with the Same Base Type 
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5,5 PREDEFINED SCALAR TYPES 


5.5.1 The Type INTEGER 


The folloNing table describes the opei— 
ations and predefined functions that 


apply to values which are the standard 
type INTEGER. 



INTEGER 


operation 

form 

description 


+ 

unary 

returns the unchanged result of the operand 


+ 

binary 

forms the sum of the operands 


- 

unary 

negates the operand 


- 

binary 

forms the difference of the operands 



binary 

forms the product of the operands 


/ 

binary 

converts the operands to REAL and produces 




the REAL quotient 


di V 

binary 

forms the integer quotient of the operands 


mod 

binary 

forms the integer modulus of the operands 




(same as remainder if the arguments are positive) 


= 

binary 

compares for equality 


<> or -’ = 

binary 

compares for inequality 


< 

binary 

compares for less than 


<n 

binary 

compares for less than or equal to 



binary 

compares for greater than or equal to 


> 

binary 

compares for greater than 

+ 


unary 

returns one’s complement on the operand 

+• 

I 

binary 

returns ’logical or’ on the operands 

+ 

1 

binary 

returns ’logical and’ on the operands 

+ 


binary 

returns 'logical xor’ on the operands 

+ 

<< 

binary 

returns the left operand value shifted 

+ 



left by the right operand value 

+ 

>> 

binary 

returns the left operand value shifted 

+ 



right by the right operand value 


CHR(x) 

f unction 

returns a CHAR whose EBCDIC representation is x 


PRED(x) 

function 

returns x-1 


SUCC(x) 

function 

returns x+1 


ODDCx) 

function 

returns TRUE if x is odd and FALSE otherwise 


ABSCx) 

function 

returns the absolute value of x 


SQR(x) 

function 

returns the square of x 

+ 

FLOAT(x) 

function 

returns a REAL whose value is x 

+ 

MIN( ) 

function 

returns the minimum value of two or more operands 

+ 

MAXC ) 

function 

returns the maximum value of two or more operands 

+ 

LOWEST(x) 

f unction 

returns MININT or the minimum value of the range 

+ 



if x is a subrange of INTEGER 

+ 

HIGHEST(x) 

function 

returns MAXINT or the maximum value of the range 

+ 



if X is a subrange of INTEGER 

+ 

SIZEOF(x) 

function 

returns the number of bytes required for a value 

1 



of the type of x, which is always 1, 2, 3, or 4 


The type INTEGER is provided as a 
pre-defined type in Pascal/VS. This 
type represents the subset of whole num¬ 
bers as defined below: 

type 

INTEGER = MININT..MAXINT; 

where MININT is a predefined INTEGER 
constant whose value is -2147483643 and 
MAXINT is a predefined INTEGER constant 


whose value is 2147483647. That is> the 
predefined type INTEGER represents 32 
bit values in 2’s complement notation. 

Type definitions representing integer 
subranges may be prefixed with the 
reserved word ’’packed”. * For variables 
declared with such a type, Pascal/VS 
will assign the smallest number of bytes 
required to represent a value of that 
type. The following table defines the 
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number of bytes required for different 
ranges of integers. For ranges other 
than those li5ted> use the first range 
that encloses the desired range. Given 
a type definition T as: 

type T = packed i..j; 


Range of 

i . . j 

Size in 
bytes 

A1ignment 

0..255 

1 

BYTE 

-128. .127 

1 

BYTE 

-32768..32767 

2 

HALFWORD 

0 . .65535 

2 

HALFWORD 

-8388608..8388607 

3 

BYTE 

0 . . 16777215 

3 

BYTE 

otherwise 

4 

FULLWORD 


Notes: 

1. The operations of div and mod are 
def i ned as •" 

A div B = TRUNCCA/B), B<>0 

A mod B = A-B^(A div B), A>=0,B>0 
A mod B = B-abs(A) mod B, A<0,B>0 

B = 0 when doing a div operation or 
B<=0 when doing a mod operation 
is defined as an error and will 
cause a runtime error message to 
be produced. 

2. The following operators perform 
logical operations: 

<< shift left logical 
>> shift right logical 
I’s complement 
I logical inclusive or 
i logical and 

logical exclusive or 


The operands are treated as unsigned 
strings of binary digits. See "Logical 
Expressions" on page 78 for more details 
on logical expressions. 
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5.5.2 Tha Type CHAR 


The following table describes the opei— 
ations and predefined functions that 
apply to the standard type CHAR. 




CHAR 

operation 

form 

description 


binary 

compares for equality 

<> or -= 

binary 

compares for inequality 

< 

binary 

compares for left less than right 

< = 

binary 

compares for left less than or equal to right 

> = 

binary 

compares for left greater than or equal to right 

> 

binary 

compares for left greater than right 

ORD(x) 

function 

converts operand to an INTEGER based on ordering 
sequence of underlying character set. 

PRED(x) 

function 

returns the preceding character 
in collating sequence 

SUCC(x) 

function 

returns the succeeding character 
in collating sequence 

STRCx) 

function 

converts the operand to a STRING 

MINC ) 

function 

returns the minimum value of two or more operands 

MAX( ) 

function 

returns the maximum value of two or more operands 

LOWEST(x) 

function 

returns the minimum value of the range of the 
character x 

HIGHEST(x) 

function 

returns the maximum value of the range of the 
character x 

SIZEOF(x) 

function 

returns the number of bytes required for a value 
of the type of a CHAR, which is always 1 


I CHAR is a scalar type that consists of variable C to the EBCDIC code for the 

I ail of the values of the EBCDIC charac- letter A. 

ter set. Variables of this type occupy 

one byte of memory and will be aligned var C: CHAR; 

on a byte boundary. begin 

A single-character string constant will C •= ’A'; 

be regarded as a CHAR constant if the ... 

context so dictates. For example, the end 

assignment statement shown below sets 
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5.5.3 The Type BOOLEAN 


The following table describes the opei— 
ations and predefined functions that 
apply to the standard type BOOLEAN. 



BOOLEAN 


operation 

f o rm 

description 



unary 

returns TRUE if the operand is FALSE» 




otherwise it returns FALSE 


& 

binary 

returns TRUE if both operands are TRUE 


1 

binary 

returns TRUE if either operand is TRUE 

+ 


binary 

returns TRUE if either^ but not both operands are TRUE 


= 

binary 

compares for equality 


<> or ■’ = 

binary 

compares for inequality 


< 

binary 

compares for left less than right 


< = 

binary 

compares for left less than or equal to right 


> = 

binary 

compares for left greater than or equal to right 


> 

binary 

compares for left greater than right 


ORD(x) 

function 

returns 0 if x is FALSE and 1 if x is TRUE 

+ 

MIN( ) 

function 

returns TRUE if all operands are TRUE 

+ 

MAXC ) 

function 

returns FALSE if all operands are FALSE 

+ 

LOWESTCx) 

function 

returns the FALSE by definition 

+ 

HIGHEST(x) 

function 

returns the TRUE by definition 

+ 

SIZEOF(x) 

function 

returns the number of bytes required for a value 

+ 



of the type of a BOOLEAN, which is always 1 


Binary Operations on BOOLEAN 


FALSE FALSE 

FALSE TRUE 

TRUE FALSE 

TRUE TRUE 

Name 

= 

TRUE 

FALSE 

FALSE 

TRUE 

Equivalence 

<> 

FALSE 

TRUE 

TRUE 

FALSE 

Exclusive Or 

< 

FALSE 

TRUE 

FALSE 

FALSE 


<:= 

TRUE 

TRUE 

FALSE 

TRUE 

Implication 

>:= 

TRUE 

FALSE 

TRUE 

TRUE 


> 

FALSE 

FALSE 

TRUE 

FALSE 



FALSE 

FALSE 

FALSE 

TRUE 

And 

1 

FALSE 

TRUE 

TRUE 

TRUE 

Inclusive Or 


FALSE 

TRUE 

TRUE 

FALSE 

Exclusive Or 


The type BOOLEAN is de-^ined as a scalar 
whose values are FALSE and TRUE as 
though declared with the following type 
declaration J 

type 

BOOLEAN=(FALSE,TRUE); 

Variables of this type will occupy one 
byte of memory and will aligned on a 
byte boundary. The relational operators 


form valid boolean functions as shown in 
the table of binary operations. 

Pascai/VS will optimize the evaluation 
of BOOLEAN expressions involving 
(and) and *|’ (or) such that the right 
operand expression will not be evaluated 
if the result of the operation can be 
determined by evaluating the left oper¬ 
and. For more details see "Boolean 
Expressions" on page 77. 
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5.5.4 Tha Type REAL 


The following table describes the opci— 
ations and predefined functions that 
apply to the standard type REAL. 




REAL 

operation 

form 

description 

+ 

unary 

returns the value of the operand 

+ 

binary 

forms the sum of the operands 

- 

unary 

negates the operand 

- 

binary 

forms the difference of the operands 

X 

binary 

forms the product of the operands 

/ 

bina ry 

forms the REAL quotient of the operands 

= 

binary 

compares for equality 

<> or -= 

binary 

compares for inequality 

< 

binary 

compares for left less than right 

< = 

binary 

compares for left less than or equal to right 

>=: 

binary 

compares for left greater than or equal to right 

> 

binary 

compares for left greater than right 

TRUNC(x) 

function 

returns the operand value truncated to an INTEGER 

ROUND(x) 

function 

returns the operand value rounded to an INTEGER 

ABS(x) 

function 

returns the absolute value of the operand 

SIN(x) 

function 

returns the trigonometric sine of x (in radians) 

COS(x) 

function 

returns the trigonometric cosine of x (in radians) 

ARCTANCx) 

f u n c tion 

returns (in radians) the arc tangent of x 

L N (X ) 

function 

returns the natural logarithm of x 

EXP(x) 

function 

returns natural log base raised to the x power 

SQRT(x) 

function 

returns square root of x 

SQR(x) 

function 

returns the square of x 

MIN( ) 

function 

returns the minimum value of the operands 

MAXC ) 

function 

returns the maximum value of the operands 

SrZEOF(x) 

function 

returns the number of bytes required for a value 
of the type of a REAL> which is always 8 


The type REAL represents floating point 
data. Variables of this type will occu¬ 
py eight bytes of memo’y and will be 
aligned on a double word boundary. All 
REAL arithmetic is done using double 
precision floating point. See "Implicit 
Type Conversion" on page 31. 


The type REAL has restrictions that oth¬ 
er scalar types do not have. You may 
not take a subrange of REAL nor index an 
array by REAL. The predefined functions 
SUCC, PRED, ORD, HIGHEST and LOWEST are 
not defined for type REAL. 
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5.5.5 The Type SHORTREAL 


The following table describes the oper¬ 
ations and predefined functions that 
apply to the standard type SHORTREAL. 




SHORTREAL 

operation 

form 

description 

+ 

unary 

returns the value of the operand 

+ 

binary 

forms the sum of the operands 

- 

unary 

negates the operand 

- 

binary 

forms the difference of the operands 


binary 

forms the product of the operands 

/ 

binary 

forms the SHORTREAL quotient of the operands 

= 

binary 

compares for equality 

<> or -= 

binary 

compares for inequality 

< 

binary 

compares for left less than right 

< = 

binary 

compares for left less than or equal to right 

> = 

binary 

compares for left greater than or equal to right 

> 

binary 

compares for left greater than right 

TRUNC(x) 

function 

returns the operand value truncated to an INTEGER 

ROUND(x) 

function 

returns the operand value rounded to an INTEGER 

ABS(x) 

function 

returns the absolute value of the operand 

SIN(x) 

function 

returns the trigonometric sine of x (in radians) 

COS(x) 

function 

returns the trigonometric cosine of x (in radians) 

ARCTANCx) 

function 

returns (in radians) the arc tangent of x 

LN(x) 

function 

returns the natural logarithm of x 

EXP(x) 

function 

returns natural log base raised to the x power 

SQRT(x) 

function 

returns square root of x 

SQR(x) 

function 

returns the square of x 

MIN( ) 

function 

returns the minimum value of the operands 

MAX( ) 

function 

returns the maximum value of the operands 

SIZEOF(x) 

function 

returns the number of bytes required for a value 
of the type of a SHORTREAL, which is always 4 


The type SHORTREAL represents floating 
point data. Variables of this type will 
occupy four bytes of memory and will be 
aligned on a word boundary. All 
SHORTREAL arithmetic is done using sin¬ 
gle precision floating point 
instructions. 

Operations between data of type REAL and 
SHORTREAL will be performed using double 
precision floating point instructions. 
The SHORTREAL operand will be implicitly 
converted to a value of type REAL. A 
SHORTREAL may be passed as an operand to 


a function or procedure that expects its 
parameter to be of type REAL if the 
parameter passing mechanism for that 
parameter is value or const. See "Im¬ 
plicit Type Conversion” on page 31. 

The type SHORTREAL has restrictions that 
other scalar types do not have. You may 
not take a subrange of SHORTREAL nor 
index an array by SHORTREAL. The prede¬ 
fined functions SUCC, PRED, ORD, HIGHEST 
and LOWEST are not defined for type 
SHORTREAL. 
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5.6 THE ARRAY TYPE 


Syntax• 


array-type• 

--> packed - 1 

-<-' 

- > array [ - 1 -> {i ndex-type}- 1 -> ] of ->{type} -> 

L<- ^ <-1 

index-tvpe• 

->(enumerated-scalai—type)- >t 

-> { 1 d 5 scalar-type}->H- > 

-> (subrange-scalai—type)->-* 


The array type defines a list of homoge¬ 
neous elements; each element is paired 
with one value of the index. An element 
of the array is selected by a subscript. 
The number of elements in the array is 
the number of values potentially 
assumable by the index. Each element of 
the array is of the same type# which is 
called the element type of the array. 
Entire arrays may be assigned if they 
are of the same type. 

Pascal/VS uses square brackets# and 

’]’# in the declaration of arrays. 
Because these symbols are not directly 
available on many I/O devices# the sym¬ 
bols M.’ and *.)’ may be used as an 
equivalent to square brackets. 

Pascal/VS will align each element of the 
array# if necessary# to make each ele¬ 
ment fall on an appropriate boundary. A 
packed array will not observe the bound¬ 
ary requirements of its elements. Ele¬ 
ments of packed arrays may not be passed 
as var parameters to routines. 

An array which is defined with more than 
one index is said to be a 
multi-dimensional array. A 

multi-dimensional array is exactly 
equivalent to an array of arrays. In 
short# an array definition of the form 

arrayCi# j #... 3 of T 
is an abbreviated form of 

arrayCil of 
arrayCj] of 
. .. T 

where i and j are scalar type defi¬ 
nitions. Thus# the first and second 
type declarations in the example below 
are alternatives to the same structure. 


type 

MATRIX = arrayC 1..10# 1..10 3 of 
REAL# 

MATRIXO = arrayC 1..10 3 of 

arrayC 1..10 3 of 
REAL; 

ABLE = arrayCBOOLEANl of INTEGER; 

COLOR = (RED# YELLOW# BLUE); 

INTENSITY = packed arrayCCOLORI 
of REAL; 

ALFA = packed arrayC 1..ALFALEN3 of 
CHAR; 

Examples of Array Declarations 


There are two procedures available for 
conversion between a packed array and a 
similar but unpacked array. The prede¬ 
fined procedures PACK (see "PACK Proce¬ 
dure” on page 121) and UNPACK (see 
"UNPACK Procedure” on page 121) are pro¬ 
vided for this purpose. 


5.6.1 Array Subscripting 


Array subscripting is performed by plac¬ 
ing an expression in square brackets 
following an array variable. The 
expression must be of a type that is 
compatible with the index type and eval¬ 
uate to one of the values of the index. 
See "Compatible Types” on page 32 The 
index may be any scalar type except 
REAL. 
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vap 

M : MATRIX; 

HUE : INTENSITY; 

begin 

{ assign ten element array } 
Mil] := MC23; 

{ assign one element of a tuo } 
{ dimensional array two ways } 
MC1,1] := 3.14159; 

MCllCl] := 3.14159; 

{ this is a reddish orange } 
HUECRED] := 0.7; 

HUECYELLOW] *• = 0.3; 

HUECBLUE] := 0.0; 

end 

Examples of Array Indexing 
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5.7 THE RECORD TYPE 



A record is a data structure which is used as names is the record type itself, 

composed of heterogeneous components; That is» every field name within a 

each element may be of a different type. record must be unique, even if that name 

Components of a record are called appears in a variant part. 

field;.. 

+ A field of a record need not be named; 
+ that is, the field identifier may be 
+ missing. In such a case, the field only 
5.7.1 Naming of a Field + serves as padding; it can not be refei— 

+ enced. 


A field is referred to by the name of 
the field. The scope of the identifiers 


44 


Pascal/VS Reference Manual 










TNL SN204446 (31 December 81) to SH20-6168-1 


type 

REC = record 

A, 

B : INTEGER; 

: CHAR; (unnamed) 

C : CHAR 

end; 

DATE = record 

DAY : 1..31; 

MONTH : 1..12; 

YEAR : 1900.. 2100 
end; 

PERSON = record 

LAST_NAME, 

FIR5T_NAME : ALFA; 

NIDDLE_INITIAL : CHAR; 

AGE : 0..99; 

EMPLOYED : BOOLEAN 

end; 

Simple Record Declarations 


5.7.2 FM'xed Part 


The fixed part of a record is a series 
of fields that exist in everv' variable 
that is declared to be of that record 
type. The fixed part, if present, is 
alNays before the variant part. 


5.7.3 Variant Part 


The variant part of a record permits the 
defining of an alternative structure to 
the record. The record structure adopts 
one of the variants at a time. 

The variant part of a record is denoted 
with the caSG symbol. A tag field iden¬ 
tifier may follow. This field is a sca¬ 
lar value that indicates which variant 
is intended to be active. 

The tag field is a field in the fixed 
part of the record. When the tag field 
is followed by a type identifier, then 
the tag field defines a new field within 
the record. 

+ If the type identifier is missing, then 
+ the tag field name must be one which was 
+ previously defined within the record. 
+ This allows you to place the tag field 
+ anywhere in the fixed part of the 
+ record. 

A variant part of a record need not have 
a tag field at all. In this case, only a 
type identifier is specified in the case 


construct. You still refer to the vari¬ 
ant fields by their names but it is your 
responsibility to keep track of which 
variant is ’active’ (i.e. contains valid 
data) during execution. 

In short, tag fields may be defined in 
the following ways: 

• ’’case I : INTEGER Of” results in I 
being a tag field of type INTEGER. 

• ’’case INTEGER of” means no tag field 
is present, the variants are denoted 
by integer values in the variant 
declaration. 

• ’’case I: of” means that I is the tag 
field and it must have been declared 
in the fixed part, the type of I is 
as given in the field definition of 

I. 

The following examples illustrate the 
three tag fields in complete record 
definitions. 


typa 

SHAPE = (TRIANGLE, RECTANGLE, 
SQUARE, CIRCLE); 

COORDINATES = 

{ fixed part-' } 

record 

X,Y : REAL; 

AREA : REAL; 

case S : SHAPE Of 

{ variant part: } 

TRIANGLE: 

(SIDE : REAL; 

BASE : REAL); 

RECTANGLE: 

(SIDEA,SIDES : REAL); 
SQUARE: 

(EDGE : REAL); 

CIRCLE: 

(RADIUS : REAL) 

end; 

A Record With a Variant Part 


The record defined as COORDINATES in the 
example above contains a variant part. 
The tag field is S, its type is SHAPE, 
and its value (whether TRIANGLE, RECTAN¬ 
GLE, SQUARE, or CIRCLE) indicates which 
variant is in effect. The fields SIDE, 
SIDEA, EDGE, and RADIUS would all occupy 
the same offset within the record. The 
following diagram illustrates how the 
record would look in storage. 


T ypes 
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variant part: 


SIDE 

SIDEA 

EDGE 

RADIUS 

BASE 

SIDEB 



Each column in the variant represents 
one alternative for the variant. 


+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 


If you preferred the tag field to be the 
first field instead of the fourth> you 
could define it as follows^ 


COORDINATES = 
record 

S ; SHAPE; 

X,Y : REAL; 

AREA : REAL; 

case S : of 

{ variant part: } 

TRIANGLE: 

(SIDE : REAL; 

BASE : REAL); 

RECTANGLE: 

(SIDEA,SIDEB : REAL); 
SQUARE: 

(EDGE : REAL); 

circle: 

(RADIUS : REAL) 

end; 

Record with Back Reference 
Tag Field 


If you preferred the tag field to be 
absent altogether you could define the 
record as follows: 


COORDINATES = 
record 

X,Y : REAL; 

AREA : REAL; 
case SHAPE of 

{ variant part: } 

TRIANGLE: 

(SIDE : REAL; 

BASE : REAL); 

RECTANGLE: 

(SIDEA,SIDEB : REAL); 
SQUARE: 

(EDGE : REAL); 

circle: 

(RADIUS : REAL) 

end; 

Record Variant with No Tag Field 


5.7.4 Packed Records 


The fields in a record are normally 
assigned offsets sequentially, padding 
where necessary for boundary alignment. 
In packed records, however, no such pad¬ 
ding is done. This may save storage 
within the record, but may degrade pei— 
formance of the program. Fields of 
packed records may not be passed as var 
parameters to a routine. 


+ 5.7.5 Offset Qualification of Fields 
+ 

+ 

+ Pascal/VS provides you a method of forc- 
+ i ng the fields of a record to begin at a 
+ specified byte offset in the record. A 
+ field name may be followed by a integer 
+ constant expression enclosed in paren- 
+ theses which represents the byte offset 
+ within the record that the field is to 
+ represent. All fields so specified must 
+ be in consecutive order according to 
+ offsets. If the offset is not 
+ specified, the field will be assigned 
+ the next offset that is required for 
+ boundary alignment. If an offset spec- 
+ ification attempts to assign an 
+ incorrect boundary for a field and the 
+ record is not packed, a compile time 
+ error will be raised. 

+ 

+ As an example of offset qualified fields 
+ within a record, consider a large con- 
+ trol block of 100 bytes, in which four 
+ fields at various offsets need to be 
+ referenced. 

+ 
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+ byte 

+ displacement information 


T 

+ 

0 

field 

A 

(integer) 

+ 

36 

field 

B 

(8 chars) 

+ 

80 

field 

C 

(4 flags) 

+ 

92 

field 

D 

(integer) 


+ The control block might be represented 
+ in Pascal/VS as folloNs** 

+ 

+- 


+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 


type 

FLAGS = 

PADDING 

CB = 


var 

BLOCK : 


set of 

(F1,F2,F3,F4); 

= packed arpay[l,.4] of 
CHAR; 

packed record 
A : INTEGER; 

B(36) : ALFA; 

C(80) : FLAGS; 

D(92) : INTEGER; 

: PADDING 

end; 

CB; 


A Record with Offset Qualvified 
Fields 
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5.8 THE SET TYPE 


Syntax •* 


56t"tvpe ' 

- 1 - 1 - > set of ->{base-scalar-type}-> 

'-> packed - 

base-seala I—tvpe» 

->{enumerated-scalar-type} 

->(id•seala I —type)- 

->{subrange-scalar-type)— 



A variable Mhose type is a set may con¬ 
tain any combination of values taken 
from the base scalar type. A value is 
either in the set or it is not in. 

Notes Pascal/VS sets can be used in many 
of the same ways as bit strings (which 
often tend to be machine dependent). 
Each bit corresponds to one element of 
the base type and is set to a binary one 
when that element i s a member of the 
set. For example, a set operation such 
as intersection (the operator is is 
the same as taking the 'boolean and' of 
two bit strings. 


type 

CHARS = set of CHAR; 

DAYSOFMON = packed set of 1..31; 

DAYSOFWEEK = set of MONDAY,.FRIDAY; 

FLAGS = set Of 

(A,B,C,D,E,F,G,H); 

Set Declarations 


The following table describes the oper¬ 
ations that apply to the variables of a 
set type. 




Set Operators 

operation 

form 

description 


unary 

returns the complement of the operand 

= 

binary 

compares for equality 

<> or -= 

binary 

compares for inequality 


binary 

returns TRUE if first operand is subset of 
second operand 


binary 

returns TRUE if first operand is superset of 
second operand 

i n 

binary 

TRUE if first operand (a scalar) is a member in 
the set represented by the second operand 

+ 

binary 

forms the union of two sets 

a 

binary 

forms the intersection of two sets 

- 

bi nary 

forms the difference between two sets 


binary 

forms an 'exclusive' union of two sets 

SIZEOF(x) 

function 

returns the number of bytes required for a value 
of the type of x 


Set union produces a set which contains 
'all of the elements which are members of 
the two operands. Set intersection 
produces the set that contains only the 
elements common to both sets. Set dif¬ 
ference produces the set which includes 
all elements from the left operand 
except those elements which are members 
of the right operand. Set exclusive 
union produces the set which contains 
all elements from the two operands 
except the elements which are common to 


both operands. The in operator tests 
for membership of a scalar within a set; 
if the scalar is not a permissible value 
of the set and checking is enabled, then 
a runtime diagnostic will result. 

The storage and alignment required for a 
set variable is dependent on the scalar 
type on which the set is based. The 
amount of storage required for a packed 
set will be the minimum number of bytes 
needed so that every member of the set 
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as: 


I may be assigned to a unique bit. Given 
a set definition! 

type S = set of BASE; 

where BASE is a scalar type which is 
not a subrange 

I the ordinal value of the last member M 
I which can be contained on the set is: 

M != ORD(HIGHEST(BASE)) 

The following table indicates the map- 
ing of a set variable as a function of 


Range of 

M 

Size in 
Bytes 

A1ignment 

0 <= M <= 7 

1 

BYTE 

8 <= M <= 15 

2 

HALFWORD 

16 <= M <= 23 

3 

BYTE 

24 <= M <= 31 

4 

FULLWORD 

32 <= M <= 255 

(M+7) 
div 8 

BYTE 


Unpacked sets based upon integer (or 
subranges of integers) will occupy 32 
bytes. The maximum value of a member of 
a set of integer may not exceed 255. 

The storage is the same for all unpacked 
sets of subranges of a base scalar type. 
The following illustrates this point. 

Given! 
type 

T = set of t; 

S = set of s; 

Where ‘ 

t is a subrange of s. 

The types T and S have identical storage 
mappings. 
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5.9 THE FILE TYPE 



AH input and output in Pascal/VS use 
the file type. A file is a structure 
consisting of a sequence of components 
where each component i s of the same 
type. Variables of this type reference 
the components with pointers called file 
pointers. A file pointer could be 
thought of as a pointer into an 
input/output buffer. 

The association of a file variable to an 
actual file of the system is implementa¬ 
tion dependent and will not be described 
in this manual. Refer to the Program¬ 
mer's Guide for this information. 


type 

TEXT = file of CHAR; 

LINE = file Of 

packed array[1..80} of 
CHAR; 

PFILE = file Of 
record 

NAME: packed 
arrayC1..25] of 

CHAR; 

PERS0N_N0:INTEGER; 
DATE_EMPLOYED:DATE; 
WEEKLY_SALARY : INTEGER 
end; 

File Declarations 


You access the file through predefined 
procedures and functions (see "I/O 
Facilities" on page 103). They are: 


• 

GET 

107) 

(see 

"GET Procedure" 

on 

page 

• 

PUT 

108) 

(see 

"PUT Procedure" 

on 

page 

• 

EOF 

(see " 

EOF Function" on 

page 

109) 

• 

EOLN 

( see 

"EOLN function" on 

page 


115) 


• RESET (see "RESET Procedure" on page 
103) 

• REWRITE (see "REWRITE Procedure" on 
page 104) 

• READ (see "READ and READLN (TEXT 
Files)" on page 109) 

• WRITE (see "WRITE and WRITELN (TEXT 
Files)" on page 112) 

• TERMIN (see "TERMIN Procedure" on 

page 104) 

• TERMOUT (see "TERMOUT Procedure" on 
page 105) 

• PDSIN (see "PDSIN Procedure" on page 
105) 

• PDSOUT (see "PDSOUT Procedure" on 

page 106) 

• UPDATE (see "UPDATE Procedure" on 

page 106) 

• SEEK (see "SEEK Procedure" on page 
108) 

+ • COLS (see "COLS Function" on page 
+ 116) 

+ 

+ • PAGE (see "PAGE Procedure" on page 
+ 115) 

+ 

+ • CLOSE (see "CLOSE Procedure" on page 
+ 107) 

I OUTPUT and INPUT are predefined TEXT 
I files. Pascal/VS enforces the following 

restrictions on the file type: 

1. A file may be passed by var or 
passed by const, but never by value 
to a procedure or function. 

2. A file may not be contained within a 
file. 
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5.10 PREDEFINED STRUCTURE TYPES 


Syntax: 




strinq-tvpe: 

-> STRING-j-> 

-> (constant-expr)-> ) 



—1 

A 

1 

1 



+ 5.10.1 The Type STRING 
+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ The type STRING is defined as a 
+ ’packed arrayCl..n3 of CHAR’ whose 
+ length varies at execution time up to a 
+ compile time specified maximum. The 
+ length of the array is obtained during 
+ execution by the LENGTH function (see 
+ "LENGTH Function” on page 137). The 
+ length is managed implicitly by the 
+ operators and functions which apply to 
+ STRINGS. The maximum length of the 
+ array is obtained during execution by 
+ the MAXLENGTH function (see "MAXLENGTH 
+ Function" on page 137). The length of a 
+ STRING variable is determined when the 
+ variable is assigned. By definition# 
+ string constants belong to the tv'pe 
+ STRING. 

+ 

A STRING variable may be subscripted 
with an integer expression to reference 
individual characters. A subscript of 1 
will reference the first character. The 
subscript value must not be less than 1 
nor exceed the string's length. 

+ The constant expression which follows 
+ the STRING qualifier in the type defi- 
+ nition is the maximum length that the 
+ string may obtain and must be in the 
+ range of ' 1 .. 32767'. 

+ 

+ Any variable of a STRING type is compat- 
+ ible with any other variable of a STRING 
+ type; that is# the maximum length field 
+ of a type definition has no bearing in 
+ type compatibility tests. 

+ 

+ Implicit conversion is performed when 
assigning a STRING to a variable whose 
type is 'packed arrayCl..n] of CHAR’. 
+ All other conversion must be done 
+ explicitly. 


+ The assignment of one string to another 
+ may cause a run time error if the actual 
+ length of the source string is greater 
+ then the maxirtium length of the target. 
+ Pascal/VS will never truncate implicit- 
+ ly. 

+ 

+ . . . —.. . .. 

+ 

+ function GETCHAR( 

+ const S : STRING; 

+ IDX : INTEGER) : CHAR; 

+ begin 

1 { Subscripted string variable } 

+ GETCHAR := SEIDX] 

+ end; 

+ 

+ 

+ var 

+ si: STRING(IO); 

+ S2: STRING(5); 

+ C: CHAR; 

+ begin 

+ SI := ’MESSAGE:’; 

+ C := GETCHAR(S1#4); 

+ { C assigned ’S’ } 

+ 

+ 

+ S2 := 'FIVE'; 

+ C := GETCHAR(S2#2); 

+ { C assigned ’I’ ) 

+ end; 

+ 

+ Usage of STRING Variables 

+ 

+ ... .—------------—---- 


+ The following table describes the opei— 
+ ations and predefined functions that 
+ apply to the variables of type STRING. 
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+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 


STRING Conversions with Relational Operators 


RIGHT OPERAND 

packed 


relational 
operations 

CHAR 

arrayC1.. n] of 

CHAR 

STRING 

CHAR 

allowed 

not permitted 

use STR on 
the CHAR 

packed 

arrayC 1 .. n] of 
CHAR 

not permitted 

okay if the 
types are 
compatible 

use STR on 
the array 

STRING 

use STR on 
the CHAR 

use STR on 
the array 

allowed 


+ 
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+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 


STRING Conversions on Assignment 



FRO 

M 



assignment 

CHAR 

packed 

arrayC 1 .. n] of 
CHAR 

STRING 

T 

0 

CHAR 

allowed 

not permitted 

use string 
indexing to 
obtain char 


packed 

arrayCl ..n] of 

CHAR 

not permitted 

okay if the 
types are 
compatible 

okay» STRING is 
converted. If 
truncation is 
required^ then 
an error results. 


STRING 

use STR to 
convert CHAR 
to a STRING 

use STR to 
convert array 
to a STRING 

alloued 
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+ 5.10.2 The Type ALFA 
+ 

+ 

+ 

+ The standard type ALFA is defined ass 
+ 

+ const 

+ ALFALEN = 8; 

+ 

+ type 

+ ALFA = packed 

+ arrayCl..ALFALEN] of 

+ CHAR; 

+ 


+ Any ’packed array[l..n] of CHAR’, 
+ including ALFA, may be converted to type 
+ STRING by the predefined function STR. 
+ The following table describes the opei— 
+ ations and predefined functions that 
+ apply to the variables of the predefined 
+ type ALFA. 


r 

+■ 



ALFA 

+ 

operation 

form 

description 

+ 


binary 

compares for equality 

+ 

<> or -’ = 

binary 

compares for inequality 

+ 

< 

binary 

compares for left less than right 

+ 

< = 

binary 

compares for left less than or equal to right 

+ 

> = 

binary 

compares for left greater than or equal to right 

+ 

> 

binary 

compares for left greater than right 

+ 

STR(x) 

function 

converts the ALFA to a STRING 

+ 

+ 

+ 

SIZEOF(x) 

function 

returns the number of bytes required for a value 
of the type of an ALFA, which is always 8 


+ 
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+ 5.10.3 The Type ALPHA 
+ 

+ 

+ 

+ The standard type ALPHA is defined as* 
+ 

+ const 

+ ALPHALEN = 16; 

+ 

+ type 

+ ALPHA = packed 

+ arrayCl. .ALPHALEN] of 

+ CHAR; 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 


+ Any ’packed arrayCl..n] of CHAR*, 
+ including ALPHA, may be converted to 
+ type STRING by the predefined function 
+ STR. The folloNing table describes the 
+ operations and predefined functions 
+ that apply to the variables of the pre- 
+ defined type ALPHA. 




ALPHA 

operation 

form 

description 

= 

binary 

compares for equality 

<> or -= 

binary 

compares for inequality 

< 

binary 

compares for left less than right 

< = 

binary 

compares for left less than or equal to right 

> = 

binary 

compares for left greater than or equal to right 

> 

bi nary 

compares for left greater than right 

STRCx) 

function 

converts the ALPHA to a STRING 

SIZEOF(x) 

function 

returns the number of bytes required for a value 
of the type of an ALPHA, which is always 16 
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The standard type TEXT is defined as^ 

type 

TEXT = file of CHAR; 


In addition to the predefined procedures 
to do input and outputs Pascal/VS 
defines several procedures which opee— 
ate only on files of type TEXT. These 
procedures perform character to 
internal representation (EBCDIC) con¬ 
versions and gives you some control over 
output field lengths. The predefined 
routines that may be used on TEXT files 
are - 

• GET ("GET Procedure” on page 107) 

• PUT ("PUT Procedure" on page 108) 

• EOF ("EOF Function" on page 109) 

• EOLN ("EOLN function" on page 115) 

• RESET ("RESET Procedure" on page 
103) 

• REWRITE ("REWRITE Procedure" on 
page 104) 

• READ ("READ and READLN (TEXT Files)" 
on page 109) 

• READLN ("READ and READLN (TEXT 
Files)" on page 109) 


• WRITE ("WRITE and WRITELN (TEXT 

Files)" on page 112) 

• WRITELN ("WRITE and WRITELN (TEXT 
Files)" on page 112) 

• PAGE ("PAGE Procedure" on page 115) 

+ • CLOSE ("CLOSE Procedure" on page 

+ 107) 

+ 

+ • COLS ("COLS Function" on page 116) 

• PDSIN ("PDSIN Procedure" on page 

105) 

• PDSOUT ("PDSOUT Procedure" on page 

106) 

• TERMIN ("TERMIN Procedure" on page 
104) 

• TERMOUT ("TERMOUT Procedure" on 
page 105) 

• UPDATE ("UPDATE Procedure" on page 
106) 

Pascal/VS predefines two TEXT variables 
named OUTPUT and INPUT. You may use 
these files without declaring them in 
your program. 
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5.11 THE POINTER TYPE 



Pascal/VS allows variables to be created 
during program execution under your 
explicit control. These variables# 
which are called dynamic variables? are 
generated by the predefined procedure 
NEW. N[;W creates a new variable of the 
appropriate type and assigns its address 
to the argument of NEW. You must 
explicitly deallocate a dynamic vari¬ 
able; the predefined procedures DISPOSE 
and RELEASE are provided for this pui— 
pose. 

+ Dynamic variables are created in an area 
+ of storage called a heap. A new heap is 
+ created with the MARK predefined proce- 
+ dure; a heap is released with the 
+ RELEASE predefined procedure. A initial 
+ heap is allocated by Pascal/VS. All 
+ variables that were allocated in a heap 
+ are deallocated when the heap is 
+ released. An attempt to use a dynamic 
+ variable that has been deallocated (ei- 
+ ther via DISPOSE or RELEASE) is an 
+ error. 

Pascal/VS pointers are constrained to 
point to a particular type. This means 
that on declaration of a pointer? you 
must specify the type of the dynamic 
variable that will be generated by NEW 
or referenced. 

Pascal/VS defines the named constant nil 
as the value of a pointer which does not 
point to any dynamic variable (empty 
pointer). Nil is type compatible to 
every pointer type. 

The only operators that can be applied 
to variables of pointer type are the 


test for equality and inequality. The 
predefined function ORD may be applied 
to a pointer variable; the result of the 
function is an integer value which is 
equal to the address of the dynamic vai— 
iable referenced by the pointer. There 
is no function in Pascal/VS to convert 
an integer into a pointer. 


type 

PTR = a ELEMENT; 

ELEMENT = record 

PARENT : PTR; 
CHILD : PTR; 
SIBLING: PTR 
end; 

A Pointer Declaration 


This example illustrates a data types 
that can be used to build a tree. With 
this structure the parent node contains 
a pointer to the eldest child? the 
eldest points to the next sibling who 
points to the next? and so forth. 

In the above example type ELEMENT was 
used before it was declared. Referenc¬ 
ing an identifier prior to its declara¬ 
tion is generally not permitted in 
Pascal/VS. However? a type identifier 
which is used as the base type to a 
pointer declaration is an exception to 
this rule. 


Types 


57 








5.12 THE TYPE STRINGPTR 


Variables of type STRING have two 
lengths associated with thems 

• The current length which defines the 
number of characters in the string 
at any instant in time. 

• The maximum length which defines the 
storage required for the string. 

The predefined type STRINGPTR defines a 
pointer to a string which has no "maxi¬ 
mum length” associated with it until 
execution time. The procedure NEW is 
used to allocate storage for this type 
of pointer; an integer expression is 
passed to the procedure that specifies 
the maximum length of the allocated 
string. See "NEW Procedure” on page 
119. 


var 

P : STRINGPTR; 

Q : STRINGPTR; 

I : 0..32767; 

begin 

I : = 59 • 

NEW(P,(I+1) div 2); 

WRITELNC MAXLENGTH(P) ); 

(writes '30* to output } 
NEW(Q,5); 

Qa := '1234567890'; 

(causes a truncation } 
(error at execution } 

end 

Using the Predefined type STRINGPTR 
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5,13 STORAGE, PACKING, AND ALIGNMENT 


For each variable declared with a pai— 
ticular type, Pascal/VS allocates a spe¬ 
cific amount of storage on a specific 
alignment boundary. The Programmer's 
Guide describes implementation 
requirements and defaults. 

Pascal/VS provides the packed record 
feature in which all boundary alignment 


is suppressed. Fields of a packed 
record are allocated on the next byte, 
ignoring alignment requirements. 

Packed data occupies less space and is 
more compact but may increase the exe¬ 
cution time of the program. Moreover, a 
field of a packed record or an element 
of a packed array may not be passed by 
read/write reference (var) to a routine. 
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6»0 ROUTINER 


Syntax: 

routine-dcl: 

-r >{procedure-heading} >■ 

*- > {f unct i on-headi ng} >- 




->{declaration)-> 

'-> {compound-statement}-> ; - 

procedure-heading• 

-> procedure ->{id}->{formal-parameters}- 

function-headi no• 

-> function ->{id}->{formal-parameters}-> 

directivei 

--> FORWARD- 

-> EXTERNAL - 

-> FORTRAN - 

-> MAIN - 

-> REENTRANT - 



-> {i d: type}- 



formal-parameters 
--> ( - 


-> {forma 1 }■ 

< - . < — 



There are two categories of routines- 
procedures and functions. Procedures 
should be thought of as adding new 
statements to the language. These new 
statements effectively increase the 
language to a superset language contain¬ 
ing statements tailored to your 
specialized needs. Functions should 
also be thought of as increasing the 


flexibility of the language: functions 
add to your ability to express data 
transformation in expressions. 

Routines can return data to the caller 
by altering the var parameters or by 
assigning to variables that are common 
to both the invoker and the invoked rou¬ 
tine. In addition^ functions also 
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return a value to the invoker upon 
return from the function. 


6.1 ROUTINE DECLARATION 


Routines must be declared prior to their 
use. The routine declaration consists 
of the routine heading^ declarations and 
one compound statement. 

The heading defines the name of the rou¬ 
tine and binds the formal parameters to 
the routine. The heading of a function 
declaration also binds the function name 
to the type of value returned by the 
function. Formal parameters specify 
data that is to be passed to the routine 
when it is invoked. The declarations 
are described in chapter 4. The com¬ 
pound statement will be executed when 
the routine is invoked. 


6.2 ROUTINE PARAMETERS 


Formal parameters are bound to the rou¬ 
tine when the routine is defined. The 
formal parameters define what kind of 
data may be passed to the routine when 
it is invoked. These parameters also 
specify how the data will be passed. 

When the routine is invoked, a parameter 
list is built. At the point of invoca¬ 
tion the parameters are called the actu¬ 
al parameters . 

Pascal/VS permits parameters to be 
passed in following ways: 


6.2.2 Pass bv Var Paramaters 


I Pass by Var (variable) is also called 
pass bv reference. Parameters that are 
passed by var reflect modifications to 
the parameters back to the caller. 
Therefore you may use this parameter 
type as both an input and output parame¬ 
ter. The use of the var symbol in a 
parameter indicates that the parameter 
is to be passed by read/write reference. 
Only variables may be passed bv this 
mechanism; expressions and constants 
may not. Also, fields of a packed 
record or elements of a packed array may 
not be passed as var parameters. 


+ 6.2.3 Pass bv Const Parameters 

+ 

+ 

+ Parameters passed by const may not be 
+ altered by the called routine. Also you 
+ should not modify the actual parameter 
+ value while the call to the routine has 
+ not yet completed. If you attempt to 
+ alter the actual parameter while it is 
+ being passed by const, the result is not 
+ defined. This method could be called 
+ pass by read only reference. The param- 
+ eters appear to be constants from the 
+ called routine's point of view. Any 
+ expression, variable or constant may be 
+ passed by const (fields of a packed 
+ record and elements of a packed array 
+ may also be passed). The use of the 
+ "const" reserved word in a parameter 
+ indicates that the parameter is to be 
+ passed by this mechanism. With parame- 
+ ters which are structures (such as 
+ strings), passing by const is usually 
+ more efficient than passing by value. 


pass by value 

pass by read/write reference (var) 

pass by read only reference (const) 

pass by conformant string (var or 
const) 

formal routine parameter 


6.2.4 Formal Routine Parameters 


A procedure or function may be passed to 
a routine as a formal parameter. Within 
the called routine the formal parameter 
may be used as if it were a procedure or 
function. 


6.2.1 Pass bv Value Parameters 


Pass by value parameters can be thought 
of as local variables that are initial¬ 
ized by the caller. The called routine 
may change the value of this kind of 
parameter but the change is never 
reflected back to the caller. Any 
expression, variable or constant (ex¬ 
cept of file type) may be passed with 
this mechanism. 


6.2.5 Conformant String Parameters 


It is often desirable to call a proce¬ 
dure or function and pass in a string 
whose declared length does not match 
that of the formal parameter. The 
conformant string parameter is used for 
this purpose. 

The conformant string parameter is a 
pass by Const or pass by var parameter 
with a type specified as STRING without 
a length qualifier. Strings of any 
declared length will conform to such a 
parameter. You can use the MAXLENGTH 
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parameter. You can use the MAXLENGTH 
function to obtain the declared length. 
See "MAXLENGTH Function" on page 137. 


procedure TRANSLATE 
(var S : STRING; 
const TABLE: STRING); 
var 

I : 0..32767; 

J : 1..ORDCHIGHESTCCHAR))+l; 

begin 

for I := 1 to LENGTH(S) do 
begin 

J := 0RD(SCI])+1; 
if J > LENGTH(TABLE) then 
SCI! := ' » 

else 

SCI] := TABLECJ]; 

c!nd; 

end; 

Example of a Conformant Strings 


6.3 ROUTINE COMPOSITION 


There are six kinds of routines: 


• internal 

• FORWARD 

+ • EXTERNAL 
+ 

+ • FORTRAN 
+ 

+ • REENTRANT 
+ 

+ • MAIN 

The directive used to identify each kind 
of declaration is shown in upper case 
above. 

Note: 

• A routine must be declared before it 
can be referenced. This allows the 
compiler to assure the validity of a 
call by checking parameter compat¬ 
ibility. 


6.3.1 Internal Routines 


An internal routine may be invoked only 
from within the lexical scope that con¬ 
tains the routine definition. 


heading before declaring the declara¬ 
tions and compound statement. The rou¬ 
tine heading is declared followed by the 
symbol ’FORWARD’. This allows you to 
have a call to a routine prior to defin¬ 
ing the routine’s body. If two routines 
are to be mutually recursive and are at 
the same nesting levels one of the rou¬ 
tines must be declared FORWARD. 

To declare the body of the FORWARD rou- 
tine/ you declare the routine leaving 
off the formal parameter definition. 


6.3.3 EXTERNAL R o ut ines 


An EXTERNAL routine is a procedure or 
function that can be invoked from out¬ 
side of its lexical scope (such as^ 
another module). The EXTERNAL directive 
is used to specify the heading of such a 
routine. While many modules may call an 
EXTERNAL routine, only one module will 
actually contain the body of the 
routine. The formal parameters defined 
in the EXTERNAL routine declaration must 
match those in the module where the rou¬ 
tine is defined. An EXTERNAL routine 
declaration may refer to a Pascal/VS 
routine which is located later in the 
same module or located in another module 
or it may refer to code produced by oth¬ 
er means (such as assembler code). 

The following example illustrates two 
modules (a program module and a segment 
module) that share a single EXTERNAL 
routine. Both modules may invoke the 
routine but only one contains the defi¬ 
nition of the routine. 


program TEST; 

function SQUARE(X : REAL) : REAL; 
EXTERNAL; 
begin 

WRITELN( SQUARE(44) ); 

end . 

SEGMENT S; 

function SQUARE(X : REAL) : REAL; 

EXTERNAL; 
function SQUARE; 
begin 

SQUARE := X X 
end; . 

Example of an EXTERNAL Function 


The body of an EXTERNAL routine may only 
be defined in the outermost nesting lev¬ 
el of a module; that is, it must not be 
+ nested within another routine. 


6.3.2 FORWARD Routines 


A routine declared FORWARD is the means 
by which you can declare the routine 
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+ 6.3.4 FORTRAN Routines 

+ 

+ 

+ A FORTRAN routine is similiar to an 
+ EXTERNAL routine in that it specifies a 
+ routine that is defined outside the mod- 
+ ule being compiled. In addition, it 
+ specifies that the routine is a FORTRAN 
+ subprogram and therefore the con- 
+ ventions of FORTRAN are to be used. A 
+ FORTRAN routine is never defined within 
+ a Pascal/VS module. If you pass a 
+ literal constant to a FORTRAN subprogram 
+ by CONST, then you must assure that the 
+ FORTRAN subprogram does not alter the 
+ contents of parameter. In order to meet 
+ the requirements of FORTRAN you must 
+ obey the following restrictions^ 

+ 

+ • All parameters may be only var or 

+ const parameters. 

+ 

+ • If the routine is a function, it may 

+ only return a scalar result (this 

+ includes REAL and SHORTREAL). 

+ 

+ • Routines may not be passed. 

+ 

+ • Multi-dimensional arrays are not 

+ remapped to conform to FORTRAN 

+ indexing, that is, an element of an 

+ array ACn,m] in Pascal will be ele- 

+ ment ACm,n) in FORTRAN. 

+ 

+ 

+ 

+ 6.3.5 MAIN Procedures 

+ 

+ 

The MAIN directive is used to identify a 
+ Pascal procedure that may be invoked as 
+ if it were a main program. It is some- 
+ times desirable to invoke a Pascal/VS 
+ procedure from a non-Pascal routine, for 
+ example FORTRAN or assembler language. 
+ In this case it is necessary for certain 
+ initializing operations to be performed 
+ prior to actually executing the Pascal 
+ procedure. The MAIN directive specifies 
+ that these actions are to be performed. 

+ 

+ There are several restrictions on the 
+ use of the MAIN directive. 

+ 

+ • only procedures may have the MAIN 
+ directive; 


+ • a procedure that is declared to be 
+ MAIN must have its body located in 

+ the same module; 

+ 

+ • the execution of a MAIN procedure 
+ will not be reentrant; 

+ 

+ • the MAIN directive may only be 
+ applied to procedures in the outer— 

+ most nesting level. 

+ 

+ Consult Pascal/VS Programmer’s Guid e, 
+ order number SH20-6162 for further 
+ details on using MAIN. 

+ 

+ 

+ 6.3.6 REENTRANT Procedures 
+ 

+ 

+ The REENTRANT directive is used to i den- 
+ tify a Pascal procedure that may be 
+ invoked as if it were a main program 
+ like a MAIN procedure. In addition, 
+ invocations of these procedures will be 
+ reentrant. 

+ 

+ In order to achieve this addition fea- 
+ ture, some help is required from you. 
+ The first parameter of a procedure 
+ defined with the REENTRANT directive 
+ must be an INTEGER passed by var. Prior 
+ to the very first call from a 
+ non-Pascal/VS program you must initial- 
+ ize this variable to zero (0). On 
+ subsequent calls you must pass the same 
+ variable back unaltered (Pascal/VS sets 
+ the variable on the first call and needs 
+ that value on the subsequent 
+ invocations). You need not call the 
+ same procedure each time, you may call 
+ different procedures - just continue to 
+ pass this variable on each call. 

+ 

+ Consult Pascal/VS Prog r ammer’s Guide , 
+ order number SH20-6162 for further 
+ details on using REENTRANT. 

+ 

+ Note; All Pascal/VS internal procedures 
+ and functions are reentrant. The REEN- 
+ TRANT directive is used to specify a 
+ procedure that i s both reentrant and 
+ invokable from outside the Pascal/VS 
+ execution environment. 
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6.3.7 Examples of Routines 


static 

C: CHAR; 

function GETCHAR:CHAR; 

EXTERNAL; 

procedure EXPRCvar VAL: INTEGER); 
EXTERNAL; 

procedure FACTOR(var VAL: INTEGER); 

EXTERNAL; 
procedure FACTOR; 
begin 

C := GETCHAR; 
if C = ’(’ then 
begin 

C := GETCHAR; 

EXPR(VAL) 

end 

else 

end; 

procedure EXPR £var VAL: integer); 
begin 

FACTOR(VAL); 
end; 

Examples of Routine Declarations 


function CHARFOUND 
(const $: STRING; 

C: CHAR): BOOLEAN; 
var I: 1..255; 
beg i n 

for I := 1 to LENGTH(S) do 
if SCI) = C then 
begin 

CHARFOUND := TRUE; 
return 
end; 

CHARFOUND := FALSE; 
end; 

Example of Const Parameter 


6.4 FUNCTION RESULTS 


A value is returned from a function by 
assigning the value to the name of the 
function prior to leaving the function. 
This value is inserted within the 


expression at the point of the call. 
The value must be assignment conformable 
to the type of the function. 

If the function name is used on the 
right side of an assignment, it will be 
interpreted as a recursive call. 


function FACTORIAL 

(X: INTEGER): INTEGER; 

begin 

if X <= 1 then 
FACTORIAL := 1 
else 

FACTORIAL : = X FACTORIAL (X-1) 

end; 

Example of Recursive Function 


Standard Pascal permits a function to 
return only a scalar value. Pascal/VS 
provides for a function to return any 
type except a file. This means that you 
can write a Pascal/VS function that 
returns a record structure as its result 
(such as you might wish to do for imple¬ 
menting a complex arithmetic library). 
A function may also return a string, 
however you must specify the maximum 
length of the string to be returned. 


type 

COMPLEX = record 

R,I : REAL 
end 

function CADD 

(const A,B : COMPLEX) : COMPLEX; 
var 

C : COMPLEX; 
begin 

C.R := A.R + B.R; 

C.I := A.I + B.I; 

CADD := C 
end; 

Example of a Function Returning a Record 


6.5 PREDEFINED PROCEDURES AND FUNC¬ 
TIONS 


Pascal/VS predefines a number of proce¬ 
dures and functions that you may find 
valuable. Details of the predefined 
procedures and functions are given in 
section titled "I/O Facilities" on page 
103. 
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7.0 VARIABLES 


Syntax ' 

variable• 

->{id}- 


notes • 



Pascal/VS divides variables into five 
classes depending on how they are 
declared^ 

• automatic (var variables) 

• dynamic (pointei—qualified vari¬ 
ables) 

+ • static (static variables) 

+ 

+ • external (def/ref variables) 

• parameter (declared on a routine 
declaration) 

A variable may be referenced in several 
ways depending on the variable's type. 
You may always refer to the entire vari¬ 
able by specifying its name. You may 
refer to a component of a structured 
variable by using the syntax shown in 
the syntax diagram. 

If you simply specify the name of the 
variable, then you are referring to the 
entire variable. If that variable is 
declared as an array, then you are 
referring to the entire array. You may 
assign an entire array. Similarly, you 
may also deal with record and set vari¬ 
ables a:5 units. 


var 

LINEl, 

LINE2 : packed 

arrayC 1..80 ] of 

CHAR; 


{ assign all 80 characters } 

{ of the array } 

LINEl := LINE2; 

Using Variables in their entirety 


7.1 SUBSCRIPTED VARIABLE 


An element of an array is selected by 
placing an indexing expression enclosed 
within square brackets, after the name 
of the array. The indexing expression 
must be of the same type as declared on 
the corresponding array index defi¬ 
nition. 

A multi-dimensional array may be refer¬ 
enced as an array of arrays. For exam¬ 
ple, let variable A be declared as 
follows ' 

A: array Ca..b,c..d] of T 

As explained in "The Array Type" on page 
42, this declaration is exactly equiv¬ 
alent to5 

A5 array Ca..b] of 

array Cc .. d] of T 
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A reference of the form ACI] would be a 
variable of type^ 

array Cc..dl of T 

and would represent a single row in 
array A. A reference of the form 
A[I][J] would be a variable of type T 
and would represent the Jth element of 
the Ith row of array A. This latter 
reference would customarily be abbrevi¬ 
ated as 

ACI, J] 

Any array reference with two or more 
subscript indicies can be abbreviated by 
writing the subscripts in a comma sepa¬ 
rated list. That is, ACI3CJ]... could 
be written as ACI,J,...3. 

If the '%CHECK SUBSCRIPT’ option is ena¬ 
bled, the index expression will be 
checked at execution time to make sure 
its value does not lie outside of the 
subscript range of the array. An exe¬ 
cution time error diagnostic will occur 
if the value lies outside of the pre¬ 
scribed range. (For a description of 
the CHECK feature see "The %CHECK State¬ 
ment” on page 148.) 

A variable of type STRING may be sub¬ 
scripted with an integer expression to 
refereince individual characters. The 
value of the subscript must not be less 
than 1 or greater than the length of the 
string. String subscripts are checked 
at run time if %CHECK SUBSCRIPT is ena¬ 
bled. 


AC123 

ACI] 

AC I+J ] 

DECKC CARD-FIFTY ] 

MATRIX! ROWCI], COLUMNCJ] ] 

Subscripted Variables 


7.2 FIELD REFERENCING 


A field of a record is selected by fol¬ 
lowing the record variable by a period 
and by the name of the field to be ref¬ 
erenced . 


var 

PERSON: 

record 

FIRST_NAME, 

LAST_NAME: STRINGCIS); 
end; 

DATE: 

record 

DAY: 1..31; 

MONTH: 1..12; 

YEAR: 1900..2000 
end; 

DECK: 

arrayCl..52] of 
record 

CARD: 1..13; 

SUIT: 

(SPADE, HEART, 
DIAMOND, CLUB) 

end; 


PERSON.LAST_NAME := ’SMITH’; 
DATE.YEAR := 1978; 

DECKC I ].CARD := 2; 

DECKC I ].SUIT := SPADE; 

Field Referencing Examples 


7.3 POINTER REFERENCING 


A dynamic variable is created by the 
predefined procedure NEW or by an imple¬ 
mentation provided routine which 
assigns an address to a pointer 
variable. You may refer either to the 
pointer or to the dynamic variable; ref¬ 
erencing the dynamic variable requires 
using the pointer notation. 

For example 

var P : a R; 

P refers to the pointer 

pa refers to the dynamic variable 


If the ’KCHECK POINTER’ option is ena¬ 
bled, any attempt to reference a pointer 
that has not been assigned the address 
of an allocated variable will result in 
an execution time error diagnostic. 
(For a description of the CHECK feature 
see ’’The %CHECK Statement” on page 148.) 
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If the *5iCHECK POINTER* option is ena- 
bledf any attempt to reference a file 
pointer which has no value will result 
in an execution time error diagnostic. 
(For a description of the CHECK feature 
see "The %CHECK Statement” on page 146.) 


var 

INPUT : TEXT; 

OUTPUT J TEXT; 

LINEl : array Cl..801 of CHAR; 


{ scan off blanks } 
{ from a file of CHAR } 
GET(INPUT); 

While INPUTS = » ’ do 
GET(INPUT); 


{ transfer a line to the } 

{ OUTPUT file } 

for I := 1 to 80 do 

begin 

OUTPUTS := LINEICII; 
PUT(OUTPUT) 
end; 

File Referencing Examples 
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8.0 EXPRESSIONS 



Pascal/VS expressions are similar in 
function and form to expressions found 
in other high level programming lan¬ 
guages. Expressions permit you to com¬ 
bine data according to specific 
computational rules. The type of compu¬ 
tation to be performed is directed by 
operators which are grouped into four 
classes according to precedence^ 


- the not operator (highest) 

- the multiplying operators 

- the adding operators 

- the relational operators (lowest) 

An expression is evaluated by performing 
the operators of highest precedence 
firsts operators of the next precedence 
second and so forth. Operators of equal 
precedence are performed in a left to 
right order. If an operator has an 
operand which is a parenthesized sub- 
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expression, the sub-expression is 
evaluated prior to applying the 
operator. 

The operands of an expression may be 
evaluated in either order; that is, you 
should not expect the left operand of 
dyadic operator to be evaluated before 
the right operand. If either operand 
changes a global variable through a 
function call, and if the other operand 


uses that value, then the value used is 
not specified to be the updated value. 
The only exception is in boolean expres¬ 
sions involving the logical operations 
of ’and' (S) and 'or' (|); for these 
operations the right operand will not be 
evaluated if the result can be deter— 
mined from the left operand. See 
"Boolean Expressions" on page 77. 
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Examples 

of Expressions 

Assume the following declarations: 


const 



ACME 

= ’acme'; 


type 



COLOR 

= (RED, YELLOW, BLUE); 

SHADE 

= set of COLOR; 


DAYS 

= (SUN, MON, TUES, 

WED, THUR, FRI, SAT); 

MONTHS 

= (JAN, FEB, MAR, 

APR, MAY, JUN, 


JUL, AUG, SEP, 

OCT, NOV, DEC); 

var 



A COLOR 

: COLOR; 


A SET 

: SHADE; 


BOOL 

: BOOLEAN; 


MON 

: MONTHS 





J 

: INTEGER; 


factors: 



I 


variable 

15 


unsigned constant 

(I)<8 + J) 


parenthetical expression 

[ RED ] 


set of one element 

C ] 


empty set 

0DD(I)<J) 


function call 

not BOOL 


complement expression 

COLORC 1 

) 

scalar type converter 

ACME 


constant reference 

terms: 



I 


factor 

I X J 


multiplication 

I div J 


integer divisi on 

ACME 11 ’ 

TRUCKING’ 

catenation 

A SET C 

RED ] 

set intersection 

I & ’FFOO 

’X 

logical and on integers 

BOOL & ODD(I) 

boolean and 

simple expression: 


I J 


term 

I + J 


addition 

I i ’80000000’X 

logical or on integers 

A SET + C 

BLUE ] 

set union 

- I 


unary minus on an integer 

expression: 



I + J 


simple expression 

RED = A COLOR 

relational operations 

RED in A 

SET 

test for set inclusion 
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8.1 OPERATORS 


Multiplying Operators 

operator 

operation 

operands 

result 


multipiication 

INTEGER 

REAL 

REAL, INTEGER 

SHORTREAL 

SHORTREAL, INTEGER 
SHORTREAL, REAL 

INTEGER 

REAL 

REAL 

SHORTREAL 

SHORTREAL 

REAL 

/ 

real division 

INTEGER 

REAL 

REAL, INTEGER 

SHORTREAL 

SHORTREAL, INTEGER 
SHORTREAL, REAL 

REAL 

REAL 

REAL 

SHORTREAL 

SHORTREAL 

REAL 

di V 

integer division 

INTEGER 

INTEGER 

mod 

modulo 

INTEGER 

INTEGER 

& (and) 

boolean and 

BOOLEAN 

BOOLEAN 

& (and) 

logical and 

INTEGER 

INTEGER 

X 

set intersection 

set of t 

set of t 

1 1 

string catenation 

STRING 

STRING 

<< 

logical left shift 

INTEGER 

INTEGER 

>> 

logical right shift 

INTEGER 

INTEGER 



Adding Operators 


operator 

operation 

operands 

result 

1 

+ 

addition 

INTEGER, INTEGER 

INTEGER 

1 



REAL, REAL 

REAL 




REAL, INTEGER 

REAL 




SHORTREAL, SHORTREAL 

SHORTREAL 




SHORTREAL, INTEGER 

SHORTREAL 




SHORTREAL, REAL 

REAL 

1 

- 

subtraction 

INTEGER, INTEGER 

INTEGER 

1 



REAL, REAL 

REAL 




REAL, INTEGER 

REAL 

I 



SHORTREAL, SHORTREAL 

SHORTREAL 




SHORTREAL, INTEGER 

SHORTREAL 




SHORTREAL, REAL 

REAL 


- 

set difference 

set of t 

set of t 


1 (w/D 

boolean or 

BOOLEAN 

BOOLEAN 

+ 

1 (or) 

logical or 

INTEGER 

INTEGER 


+ 

set union 

sat of t 

sat of t 

+ 

(xor) 

exclusive or 

INTEGER 

INTEGER 

+ 

(xor) 

’exclusive’ union 

set of t 

sat of t 
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The Not 

Operator 


operator 

operation 

operand 

result 

- (not) 

boolean not 

BOOLEAN 

BOOLEAN 

- (not) 

logical one’s 
complement 

INTEGER 

INTEGER 

^ (not) 

set complement 

set of T 

set of T 


Relational Operators j 

operator 

operation 

operands 

result 

= 

compare equal 

any set, scalar type. 

BOOLEAN 



pointer or string 


<> (-’=) 

compare not equal 

any set, scalar type. 

BOOLEAN 



pointer or string 


< 

compare less than 

scalar type or string 

BOOLEAN 

< = 

compare < or = 

scalar type, string 

BOOLEAN 

< = 

subset 

set of t 

BOOLEAN 

> 

compare greater 

scalar type, string 

BOOLEAN 

> = 

compare > or = 

scalar type, string 

BOOLEAN 

> = 

superset 

set of t 

BOOLEAN 

in 

set membership 

t and set Of t 

BOOLEAN 
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+ 8.2 (CONSTANT EXPRESSIONS 
+ 

+ 

+ Constant expressions are expressions 
+ which can be evaluated by the compiler 
+ and replaced with a result at compile 
+ time. By its nature^ a constant expres- 
+ sion may not contain a reference to a 
+ variable or to a usei—defined function. 
+ Constant expressions may appear in con- 
+ stant declarations. 

+ 

+ The following predefined functions are 
+ permitted in constant expressions* 

+ 


+ 

Function 

Page 

+ 

+ 

ABS 

132 

+ 

CHR 

126 

+ 

HIGHEST 

123 

+ 

LENGTH 

137 

+ 

LOWEST 

123 

+ 

MAX 

130 

+ 

MAXLENGTH 

137 

+ 

MIN 

130 

1 

ODD 

132 

+ 

ORD 

126 

+ 

PRED 

131 

+ 

scalar conversion 


+ 

functions 

127 

+ 

SIZEOF 

125 

+ 

SUCC 

131 


+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 


constant 
expression 


ORDC »A’) 

SUCC(CHR('FO'X)) 

256 div 2 

'TOKEN'IISTRCCHRCO)) 
'8000'X I 'OOOl'X 
['O'..'9' ] 

32768)<2-l 


Examples of Constant 


type 


INTEGER 

CHAR 

INTEGER 

STRING 

INTEGER 

set of CHAR 

INTEGER 

Expressions 
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8.3 BOOLEAN EXPRESSIONS 


You should recognize that Pascal assigns 
the operations of (and) and ”|” a 

higher precedence than the relational 
operators. This means that the expres¬ 
sion! 

A<B 8 C<D 

Mill be evaluated as ! 

(A < (B8C)) < D 


Thus» it is advisable to use parenthesis 
Mhen Mriting expressions of this sort. 

Pascal/VS Mill optimize the evaluation 
of BOOLEAN expressions involving 
(and) and *1' (or) such that the right 
operand of the expression Mill not be 
evaluated if the result of the operation 
can be determined by evaluating the left 
operand. For example> given that A, B, 
and C are boolean expressions and X is a 
boolean variable^ the evaluation of 

X != A or B or C 

Mould be performed as 

if A then 
X := TRUE 
else 

if B then 
X != TRUE 
else 
X != C 

The evaluation of 

X != A and B and c 

Mould be performed as 

if -A then 
X := FALSE 
else 

if -B then 
X := FALSE 
else 
X := C 


The evaluation of the expression Mill 
alMays be left to right. 

The folloMing example demonstrates log¬ 
ic Mhich depends on the conditional 
evaluation of the right operand of the 
”and” operator. 


type 

RECPTR = aREC; 

REC = record 

NAME: ALPHA; 

NEXT: RECPTR; 
end; 

var 

P : RECPTR; 

LNAME : ALPHA; 

beg i n 

while (Ponil) and 

(Pa.NAME <> LNAME) 
do 

P := pa.NEXT; 

end; 

Example of a BOOLEAN Expression 
that Depends on Order of Evaluation 


Notes! 

• If you use a function in the right 
operand of a boolean expression^ 
then you must be aMare that the 
function may not be evaluated. Fui— 
ther» you should note that relying 
on side-effects from functions is 
considered a bad programming prac¬ 
tice. 

• Not all Pascal compilers support 

this interpretation of BOOLEAN 
expressions. If you Mi sh to assure 
portability betMeen Pascal/VS and 
other Pascal implementations you 
should Mrite the compound tests in a 
form that uses nested 

i f-statements. 
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+ 8.4 LOGICAL EXPRESSIONS 
+ 

+ 

+ Many of the integer operators provided 
+ in Pascal/VS perforin logical operations 
+ on their operands; that is» the operands 
+ are treated as unsigned strings of bina- 
+ ry digits instead of signed arithmetic 
+ quantities. For example^ if the integer 
+ value of -1 was used as an operand of a 
+ logical operation, it would be viewed as 
+ a string of binary digits with a 
+ hexadecimal value of 'FFFFFFFF'X. 

+ 

+ The logical operations are defined to 
+ apply to 32 bit values. Such an opera- 
+ tion on a subrange of an INTEGER could 
+ yield a result outside tine subrange. 

+ 

+ The following operators perform logical 
+ operations on integer operands^ 

+ 

+ • *&’ (and) performs a bit-wise and of 

+ two integers. 

+ 

+ • ’I’ (or) performs a bit-wise inclu- 

+ 5ive or. 

+ 

+ • ’SX’ (XOr) performs a bit-wise 
+ exclusive OP. 


+ • (not) performs a one’s comple- 

+ ment of an integer. 

+ 

+ • *<<* shifts the left operand value 

+ left by the amount indicated in the 

+ right operand. Zeroes are shifted in 

+ from the r i ght. 

+ 

+ • ’>>’ shifts the left operand value 

+ right by the amount indicated in the 

+ right operand. Zeroes are shifted in 

+ from the left. 

+ 

+ - 

+ 


+ 

257 4 ’FF’X 

yields 

1 

+ 

2 1 4 1 8 

yields 

14 

+ 

4 << 2 

yields 

16 

+ 

-4 << 1 

yields 

-8 

+ 

8 >> 1 

yields 

4 

+ 

-8 >> 1 

yields 

’7FFFFFFC’X 

+ 

’FFFF'X >> 3 

yields 

'IFFF’X 

+ 

-I 4 ’FF’X 

yields 

’FE’X 

+ 

-0 

yields 

-1 

+ 

’FF’X 44 8 

yields 

’F7’X 


+ 


+ Examples of Logical Operations 

+ 

+- 
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8.5 FUNCTION CALL 


Syntax • 

function-call♦ 

-> {i d? funct i on)-> {actual-parameters}- . — — ... .. .. > 

actual-parametersi 


- > ( — 

T- -1- > (expr) 

3—r 

—> ) 



1 " ' ^ 






_ 


V 


A function returns a value to the 
invoker. A call to a function passes 
the actual parameters to the correspon¬ 
ding formal parameters. Each actual 
parameter must be of a type that is 
conformable to the corresponding formal 
parameter. You may not pass a field of 
a packed record as a var parameter. You 
also may not pass an element of a packed 
array as a var parameter. 

The parenthesis list may be dropped if 
the function requires no parameters. 
However» if you wish to draw attention 
to a function call that has no parame¬ 
ters and make it appear different from a 
variable reference, you can follow the 
function name with an empty set of 
parenthesis. 


vaP A,B,C: INTEGER; 

function SUM 

(A,B: INTEGER): INTEGER; 
begin 

SUM := A+B 
end; 

begin 

c’ := SUM(A,B) x 2 
end; 

Function Example 
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+ 8.6 SCALAR CONVERSIONS 
+ 

+ 

+ Pa3cal/VS predefines the function ORD 
+ that converts any scalar value into an 
+ integer. The scalar conversion func- 
+ tions convert an integer into a speci- 
+ fled scalar type. An integer expression 
+ is converted to another scalar type by 
+ enclosing the expression within paren- 
+ theses and prefixing it with the type 
+ identifier of the scalar type. If the 
+ operand is not in the range 0 
+ ORDCHIGHESTCscalar type))» then a sub- 
+ range error will result, the conversion 
+ is performed in such a way as to be the 
+ inverse of the ORD function. See 
+ "Scalar Conversion" on page 126, 

+ 

+ The definition of any type identifier 
+ that specifies a scalar type (enumerated 
+ scalars or subranges) forms a scalar 


+ conversion function. By definition, the 
+ expression CHAR(x) is equivalent to 
+ CHR(x); INTEGER(x) is equivalent to x; 
+ and ORDCtypeCx)) is equivalent to x. 

+ 

+- 

+ 

+ type 

+ WEEK = 

+ (SUN,MON,TUE,WED,THU,FRI,SAT); 

+ vap 

+ DAY: WEEK; 

+ 

+ 

+ {The following assigns SAT to DAY) 

+ DAY := WEEK(6); 

+ 

+ Scalar Conversion Functions 

+ 

+ - 

+ 
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8.7 SET CONSTRUCTOR 



I A set constructor is used to compute a 
I value of a set type within an 
expression. 


The set constructor is list of comma 
separated expressions or expression 
pairs within square brackets. An 
expression pair designates that all val¬ 
ues from the first expression through 
the last expression are to be included 
in the resulting set; the evaluation of 
the first expression must produce a val¬ 
ue less than or equal to the value 
computed by the second expression. Each 
expression must be of the same type; 
this type becomes the base scalar type 
of the set. If the set specifies INTE¬ 
GER valued expressions^ then there is an 
implementation restriction of 256 ele¬ 
ments permitted in the set. 


type 

DAYS = set of 

(SUN.MON,TUES,WED,THU,FRI,SAT); 
CHARSET= set Of CHAR; 

van 

WORKDAYS, 

WEEKEND: DAYS 

NONLETTERS: CHARSET; 


WORKDAYS := [riON..FRI]; 
WEEKEND := - WORKDAYS; 


NONLETTERS := 

[’a' . . ’z’, »A’ . . ’Z»]; 


Set Constructor 
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Syntax 


statement» 

--> {label)-> : ->-i 

-<-^-> 

->(assert-statement)- 

->(assignment-statement) 

->{case-statement)- 

->(compound-statement)— 

-Xconti nue-statement)-- 

->(empty-statement)- 

->(foi—statement)- 

->(goto-statement)- 

->(if-statement)- 

->(leave-statement)- 

->(procedure-call)- 

->(repeat-statement)- 

->(return-statement)- 

->(while-statement)- 

->(with-statement)- 


>1 


>- 

>- 




>- 

>• 

>- 

>- 

>- 

>- 


>i 


>H 


> 


> 


> 


Statements are your directions to pei— those found in most high level program- 

form specific operations based on the ming languages, 
data. The statements are similar to 


Statements 


83 







+ 9.1 THE ASSERT STATEMENT 


Syntax •' 


assert-statement * 


-> assert ->Cexpr} 


+ The assart-statement i s used to check +- 

+ for a specific condition and signal a + 

+ runtime error if the condition is not + Example: 

+ met. The condition is specified by the + 

+ expression which must evaluate to a + assert A >= B 
+ BOOLEAN value. If the condition is not + 

+ TRUE then the error is raised. The com- + The Assert Statement 

+ piler may remove the statement from the + 

+ program if it can be determined that the + - 

+ assertion is always true. + 

+ 
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9.2 THE ASSIGNMENT STATEMENT 


Syntax ' 


assT qnment-statement» 

- 1 ->{variable}- 1 -> ’= ->{expr}-> 

*-> {i d * f unct i on)->-* 


The assignment-statement is used to 
assign a value to a variable. This 
statement is composed of a reference to 
a variable folloNed by the assignment 
symbol (’:=’)» followed by an expression 
which when evaluated is the new value. 
The variable must be conformable to the 
expression. The rules for expression 
conf ormabi 1 i ty are given in ’’Type Com¬ 
patibility” on page 31. 

You may make array assignments (assign 
one array to another array) or record 
assignments (assign one record to anoth¬ 
er). When doing this, the entire array 
or record is assigned. 

A result is returned from a function by 
assigning the result to the function 
name prior to leaving the function. See 
’’Function Results” on page 65 

Pascal/VS will not permit the assignment 
of a value to a pass by const parameter. 


Example 5 


type 

CARD = record 

SUIT : (SPADE, 
HEART, 
DIAMOND, 
CLUB); 

RANK : 1..13 
end; 

var 

X, Y, Z : REAL; 

LETTERS, 

DIGITS, 

LETTER_OR_DIGIT 
; set of CHAR; 


.52 1 of 


I, J, K : INTEGER; 

DECK : arrayC 1. 
CARD; 

X*:= YXZ; 

LETTERS 
DIGITS 

LETTER_OR_DIGIT 
DECKE I 3.SUIT 
DECKC J 3 


= C 'A' .. ’Z’ 3; 

= C ’0’ .. ’9’ 3; 

= LETTERS + DIGITS; 
= HEART; 

= DECKC K 3; 


Assignment Statements 
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9.3 THE CASE STATEMENT 



The case-statement provides you with a 
multiple branch based upon the evalu¬ 
ation of an expression. This statement 
consists of an expression called the 
selector and a list of statements. The 
selector must be of scalar type (except 
type REAL). Each statement is prefixed 
with one or more ranges of the same type 
as the selector; each range is separated 
by a comma. Each range designates one 
or more values called case labels. 

Pascal/VS evaluates the expression and 
executes the statement whose case label 
equals the value of the expression. If 
no case label equals the value of the 
expression, then the otherwise state- 
+ ment is executed if it is present; if 
+ there is no otherwise statement and the 
+ %CHECK CASE option is on, then a runtime 
t error will result. If the checking is 
+ not enabled the results will not be pre- 
+ dictable. 

The range values of a case-statement may 
be written in any order. However, you 
may not designate the same case label on 
more than one statement. 


Example: 

type 

SHAPE = (TRIANGLE, RECTANGLE, 
SQUARE, CIRCLE); 
COORDINATES = 
record 

X,Y : REAL; 

AREA : REAL; 

case S : SHAPE Of 
TRIANGLE: 

(SIDE : REAL; 

BASE : REAL); 
RECTANGLE: 

(SIDEA,SIDEB : REAL); 
SQUARE: 

(EDGE : REAL); 

CIRCLE: 

(RADIUS : REAL) 

end; 

var 

COORD : COORDINATES; 

withCOORD do 
case S of 
TRIANGLE: 

AREA := 0.5 X SIDE K BASE; 
RECTANGLE: 

AREA := SIDEA ^ SIDEB; 

SQUARE: 

AREA := SQR(EDGE); 

CIRCLE: 

AREA := 3.14159 K SQR(RADIUS) 
end; 

The Case Statement 
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Example • 
type 

RANK = (ACE, TWO, THREE,FOUR, 
FIVE, SIX, SEVEN,EIGHT, 
NINE, TEN, JACK, QUEEN, 
KING); 

SUIT = (SPADE,HEART,DIAMOND,CLUB); 
CARD = record 

R : RANK; 

S •• SUIT 

end; 

var 

POINTS : INTEGER; 

A_CARD •• CARD; 

case A_CARD.R Of 
ACE J 

POINTS := 11; 

TWO..TEN: 

POINTS := ORD(A_CARD.R)+l 
+ Otherwise 
+ POINTS := 10 

end; 

The Case Statement with otherwise 
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9.4 THE COMPOUND STATEMENT 


Syntax ' 


compound-statement• 

-> begin -j- >{statement}- 1 - > end --> 

L<- . <-1 


The compound-statement serves to brack¬ 
et a series of statements that are to be 
executed sequentially. The reserved 
words "begin” and "end" delimit the 
statement. Semicolons are used to sepa¬ 
rate each statement in the list of 
statements. 


Example: 

if A > B then 

begin { swap A and B } 

TEMP := A; 

A := B; 

B := TEMP 
end 

Compound Statement 
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+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 


9.5 THE CONTINUE STATEMENT 


Syntax ' 

continue-statement* 

—> continue---> 


The continue statement causes a jump to 
the loop-continuation portion of the 
inner-most enclosing for^ while/ or 
repeat statement. In other wordS/ it is 
a goto to the end of the loop. 

The following examples illustrate how 
the continue statement functions in each 
of the loop constructs. 

while expr do begin 

continue 

(^continue jumps to hereX) 

end 


for i != exprl to expr2 do 
begin 

continue 

(><continue jumps to here^) 

end 


repeat 

continue 

(><continue jumps to here^) 
until expr; 
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9.6 THE EMPTY STATEMENT 


Syntax • 


emptv-statement • 

- > 


The empty-statement is used as a place 
holder and has no effect on the exe¬ 
cution of the program. This statement 
is often useful when you wish to place a 
label in the program but do not want it 
attached to another statement (such as» 
at the end of a compound-statement). 
The empty-statement is also useful to 
avoid the ambiguity that arises in nest¬ 
ed if-statements. You may force a 
single else-clause to be paired with the 


outer nested if-statement (see page 94 ) 
by using an empty-statement. 

if bl then 
if b2 then 
si 
else 

{ empty-statement } 

else 

s2 
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9.7 THE FOR STATEMENT 


Syn tax J 


foi—statement• 

-> for ->{id} 


> ->{expr} 


> do 


> to - 1 -Xexpr}->-i 

> doMnto ->-* 


>{statement} 


> 


The foi—statement repeatedly executes a 
statement while the control variable is 
assigned a series of values. The value 
of the control variable is incremented 
(to) or decremented (dounto) for each 
iteration of the loop. The increment 
(decrement) is computed by the SUCC 
(PRED) function. That is» the control 
variable is changed to the succeeding 
(preceding) value of the type of the 
control variable. 

The foi—statement initializes the con¬ 
trol variable to the first expression. 
Prior to each execution of the component 
statements the control variable is com¬ 
pared less than or equal to (to)s or 
greater than or equal to (dOMntO) the 
second expression. Pascal/VS computes 
the value of the second expression at 
the beginning of the foi—statement and 
uses the result for the duration of the 
statement. Thus the ending value 
expression is computed once and can not 
be changed during the foi—statement. 

The control variable must be an automat¬ 
ic variable which is declared in the 
immediately enclosing routine. Also» it 
may not be subscripted^ field qualified 
or referenced through a pointer. The 
type of the control variable must be a 
scalar type. 

The executed statement must not alter 
the control variable. If the control 
variable is altered within the loop, the 
resultant loop execution is not predict¬ 
able. The value of the control variable 
after the for-statement is executed is 
undefined (you should not expect the 
control variable to contain any partic¬ 
ular value). 

Given the following statement 

for I '= exprl to exprZ do stmt 

where I is an automatic scalar variable; 
exprl and expr2 are scalar expressions 
which are type-compatible with I; and 


'stmt* is any arbitrary statement. The 
following compound statement is func¬ 
tionally equivalents 

begin 

TEMPI 5= exprl; 

TEMP2 := expr2; 
if TEMPI <= TEMP2 then 
begin 

I s= TEMPI; 
repeat 
stmt; 

if I = TEMP2 then 
leave; 

I := SUCC(I) 
until FALSE; {forever) 
end 
end 

where 'TEMPI* and 'TEMP2* are compiler 
generated temporary variables. 

And given the following statement 

for I s = exprl dOMnto expr2 do stmt 

where I is an automatic scalar variable; 
exprl and expr2 are scalar expressions 
which are type-compatible with I; and 
'stmt* is any arbitrary statement. The 
following compound statement is func¬ 
tionally equivalents 

begin 

TEMPI s= Gxprl; 

TEMP2 := expr2; 
if TEMPI >= TEMP2 then 
begin 

I := TEMPI; 
repeat 
stmt; 

if I = TEMP2 then 
leave; 

I,S = PRED(I) 
until FALSE; {forever) 
end 
end 

where 'TEMPI* and 'TEMP2' are compiler 
generated temporary variables. 
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Examples ’• 


{ find the maximum INTEGER in } 
{ an array of INTEGERS } 

MAX A[l]; 

LARGEST := 1; 

for I ••= 2 to SIZE_OF_A do 
if ACI] < MAX then 
bag i n 

LARGEST := I; 

MAX := ACI] 
end 


{ matrix multi pii cati on J C<”A5<B } 

for I := 1 to N do 
for J5= 1 to N do 
begin 

X ;= 0.0; 

for K := 1 to N do 

X := ACI,K] ^ BCK,J] + X; 
CCI,J] := X 
end 


{ sum the hours worked this Meek } 
SUM := 0; 

for DAY ;= MON to FRI do 

SUM ;= SUM + TIMECARDC DAY ] 

The For Statement 
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9.8 the: goto statement 


Syntax 


loto-statement• 


■> goto -Xlabel}- 


The goto-statement changes the flow of 
control within the program. 

Examples ' 

goto 10 

goto ERROR_EXIT 

The Goto Statement 


• You may not branch into a 

with-statement from a 

goto-statement outside of the 

with-statement. 

• For a goto-statement that specifies 
a label that is defined in an outer 
routine, the target label may not be 
defined within a compound statement 
or loop. 

The following example illustrates legal 
and illegal goto-statements. 


The label must be declared within the 
routine that contains the 

goto-statement. 

The following restrictions apply to the 
use of the goto statement^ 

• You may not branch into a compound 
statement from a goto-statement 
which is not contained within the 
statement. 

• You may not branch into the then- 
clause or the else-clause from a 
goto-statement that is outside the 
if-statcment. Further, you may not 
branch between the then-clause and 
the else-clause. 

• You may not branch into a case-al¬ 
ternative from outside the 
case-statement or between case-al¬ 
ternative statements in the same 
case-statement. 

• You may not branch into a for, 
repeat, or while loop from a goto 
statement that is not contained 
within the loop. 


procedure G0T0_EXAriPLE; 
label 

LI, L2, L3, L4 


procedure INNER? 
begin 

goto L4; { permitted } 

goto L3; { not permitted } 

end; 
begin 

goto L3; { not permitted } 

begin 

L3: 

goto L4; C permitted } 

goto L3; { permitted } 


end; 

L4 5if expr then 

LI 5 goto L2 { not permitted } 
else 

12 ’ goto LI £ not permitted } 

end; 

Goto Target Restrictions 
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9.9 THE IF STATEMENT 


Syntax ' 
if-statement ' 

— > if —Xexpr}—> then —> {statement} 1 --> 

' - > else —>{statement}—>- 


The if-statement allows you to specify 
that one of two statements is to be exe¬ 
cuted depending on the evaluation of a 
boolean expression. The if-statement is 
composed of an expression and a then- 
clause and an optional else-clause. 
Each clause contains one statement. 

The expression must evaluate to a 
BOOLEAN value. If the result of the 
expression is TRUE, then the statement 
in the then-clause is executed. If the 
expression evaluates to FALSE and there 
is an else-clause, then the statement in 
the else-clause is executed; if there is 
no else-clause, control passes to the 
next statement. 


Example: 

if A <= B then 
A := (A+1.0)/2.0 

if ODD(I) then 
j—j + l 
else 

J:“J div 2+1 

The If Statement 


Nesting of an if-statement within an 
if-statement could be interpreted with 
two different meanings if only one 
statement had an else-clause. The fol¬ 
lowing example illustrates the condi¬ 
tion that produces the ambiguity. 
Pascal/VS always assumes the first 
interpretation. That is, the 
else-clauses are paired with the inner— 
most if-statement. 


The following line could be 
interpreted two ways. 

if bl then if b2 then stmtl else stmt2 

Interpretation 1 

(assumed by Pascal/VS) 

if bl then 
begin 

if b2 then 
stmtl 
else 

stmt2 

end 


Interpretation 2 

(incorrect interpretation) 

if bl then 
begin 

if b2 then 
stmtl 

end 

else 

stmt2 


If the second interpretation is desired 
you could code it as shown or you could 
take advantage of the empty-statement. 

if bl then 
if b2 then 
stmtl 
else 

{ empty statement 

else 

stmt2 
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+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 
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9.10 THE LEAVE STATEMENT 


Syntax ’ 

1 eavci-statement» 

-> leave--> 


The leave statement causes an immediate^ 
unconditional exit from the innei—most 
enclosing foh, i>jhile or repeat loop. 
For example^ the following two code seg¬ 
ments are functionally equivalent^ 

While expr do 
begin 

ieave 

end; 

while expr do 
begin 

goto lab; 
end; 

lab ' ; 


+ . ' ... ■ ... 

+ 

+ Examples 
+ 

+ P:=FIRST; 

+ While ponil do 
+ if pa.NAME = 'JOE SMITH' then 

+ leave 

+ else 

+ P;=Pa.NEXT; 

+ { P either points to the desired } 

+ { data or is nil } 

+ 

+ The Leave Statement 

+ 

+ - 

+ 
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The procedure-statement causes the 
invocation of a procedure. When a pro¬ 
cedure is invoked, the actual parameters 
are substituted for the corresponding 
formal parameters. The actual parame¬ 
ters must be conformable to the formal 
parameters. The rules for expression 
conformabi1ity are given in "Type Com¬ 
patibility" on page 31. 

Parameters which are passed by 
read/write reference (var) may only be 
variables, never expressions or con¬ 
stants. Also, fields of a packed record 
may not be passed by var. Parameters 
passed by value or read-only reference 
(const) may be any expression. 

A procedure invocation that requires no 
parameters does not use the list of 
operands. 


Example J 

TRANSPOSE(AN_ARRAY, 

NUM-0F_R0WS, 

NUM-0F_C0LUMNS); 

MATRIX_ADD(A_ARRAY, 

B_ARRAY, 

C_ARRAY, 

N,M); 

XYZ(I + J, K)(L) 

Procedure Invocations 
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9.12 THE REPEAT STATEMENT 


Syntax • 


r epecit-statement • 

- > repeat - 1 ->{statement}- 1 -> until ->{expr}-> 

L<- . <-1 


The statements contained between the 
statement delimiters repeat and Until 
are executed until the control expres¬ 
sion evaluates to TRUE, The control 
expressiion must evaluate to type 
BOOLEAN. Because the termination test 
is at the end of the loop^ the body of 
the loop is always executed at least 
once. The structure of the 
repeat-statement allows it to act like a 
compound statement in that it encloses a 
list of statements. 


Example 5 
repeat 

K := I mod J; 

I := J; 

J ;= K 
until J = 0 

The Repeat Statement 
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+ 9.13 THE RETURN STATEMENT 



+ The return-statement permits an exit + Pascal/VS will insure that a function 
+ from a procedure or function. This + has been assigned a value prior to the 
+ statement is effectively a goto to an + return from the function. If a value 
+ imaginary label after the last statement + has not been assigned^ a runtime error 
+ within the routine being executed. If + will occur. 

+ the %CHECK FUNCTION option is enabled. 
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9.14 THE UHILE STATEMENT 


Syntax ' 


whila-statement• 

- > Uhile ->{expr}-> do ->{statement)-------—-> 


The while-statement allows you to speci¬ 
fy a statement that is to be executed 
while a control expression evaluates to 
TRUE. The control expression must eval¬ 
uate to type BOOLEAN. The expression is 
evaluated prior to each execution of the 
statement. 


Example: 

{ Compute the decimal size of N ) 
{ assume N >= 1 } 

I := 0; 

J ;= 1; 

While N > 10 do 
begin 

I := I + 1; 

J := J 10; 

N := N diV 10 
end 

{ I is the power of ten of the ) 
{ original N } 

C J is ten to the I power } 

{ 1 <= N <= 9 } 

The Ulhile Statement 
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9.15 THE UITH STATEMENT 


Syntax: 


Mlth-statement • 

-> with - 1 - >{variable} - 1 -> 

L<- ^ <-1 


The with-statement is used to simplify 
references to a record variable by elim¬ 
inating an addressing description on 
every reference to a field. The 
with-statement makes the fields of a 
record available as if the fields were 
variables within the nested statement. 

The with-statement effectively computes 
the address of a record variable upon 
executing the statement. Any modifica¬ 
tion to a variable which changes the 
address computation will not be 
reflected in the pre-computed address 
during the execution of the with state¬ 
ment. The following example illustrates 
this point. 


var A : arrayC 1..10 ] of 
record 

FIELD : INTEGER 

end; 

l:=i; * 

with AC I ] do 
begin 

K := FIELD; CK:=AC1].FIELD) 

I := 2; 

K := FIELD; CK:=AC1].FIELD) 

end; 

The Address of A is Computed 
on Entry to the Statement 


The comma notation of a with-statement 
is an abbreviation of nested 
with-statements. The names within a 
with-statement are scoped such that the 
last with statement will take 
precedence. A local variable with the 
same name as a field of a record becomes 
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unavailable in a with statement that 
specifies the record. 


Example: 

type 

EMPLOYEE = 

record 

NAME : STRING(20); 
MAN NO : 0..999999; 
SALARY ; INTEGER; 
ID_N0 : 0..999999 
end; 


FATHER : a EMPLOYEE; 

withFATHERa do 
begin 

NAME := 'SMITH*; 

MAN_N0 := 666666; 

SALARY ;= WEEKLY_SALARY; 

ID_N0 := MAN_N0 

end 

is equivalent to^ 

begin 

FATHERa.NAME := 'SMITH'; 
FATHERa.MAN_NO := 666666; 

FATHERa.SALARY := WEEKLY_SALARY; 
FATHERa.ID_NO := FATHERa.MAN_N0 
end 

NoteJ The variable FATHER is of type 
pointer to EMPLOYEE, thus the pointer 
notation must be used to specify the 
record pointed to by the pointer. 


The With Statement 










Example: 


V 5 record 

V2 : INTEGER; 

VI : record A : REAL end; 

A : INTEGER 
end; 

A : CHAR; 

with V,V1 do 
begin 

V2 := 1; { V.V2 := 1 J 

A := 1.0; { V.Vl.A 5= 1.0 } 

V.A:=1 {V.A :=1 } 

{ CHAR A is not } 

{ available here) 

end; 

A := 'A»; { CHAR A is now > 

{ available } 

With Statements Can Hide a Variable 
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10.0 I/O FACILITIEr> 


Input and output are done using the file 
data structure. The Pascal/VS Program¬ 
mer's Guide provides more detail on how 
to use the I/O facilities in a specific 
operating system. Pascal/VS provides 
predefined routines which operate on 
variables of a file type. The routines 
are • 

• RESET 

• REWRITE 

• READ 

• WRITE 

• GET 

• PUT 

• EOF 

+ • CLOSE 

• UPDATE 

• TERMIN 

• TERMOUT 

• PDSIN 

• PDSOUT 

• SEEK 

To facilitate input and output oper¬ 
ations that require conversion to and 
from a character representation» the 
predefined file type TEXT is provided. 
The type TEXT is predefined as a file of 
CHAR. Each GET and PUT transfers one 
CHAR of information. There are addi¬ 
tional predefined routines that may be 
executed on variables of type TEXT that 
perform the required conversions. 

• READLN 

• WRITELN 

• EOLN 

• PAGE 
+ • COLS 


10.1 RESET PROCEDURE 


Open a File for Input 


Definition• 

procedure RESET( 

F ' filetype; 
const S : STRING); 


Where* 

Fisa variable of a file type 
S is an optional string value that 
specifies options 


RESET positions the file pointer to the 
beginning of the file and prepares the 
file to be used for input. After you 
invoke RESET the file pointer is point¬ 
ing to the first data element of the 
file. If the file is associated with a 
terminals the terminal user would be 
prompted for data when the RESET is exe¬ 
cuted. This procedure can be thought of 
as J 

1. Closing the file (if open). 

2. Rewinding the file. 

3. Opening the file for input. 

4. Getting the first component of the 

file. 

The string parameter is used to specify 
any special file dependent options to be 
used in opening the file. Consult the 
Pascal/VS Programmer's Guide ? order 
number SH20-6162 which describes the 
options that are available. 
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10.2 REURITE PROCEDURE 


Open a File for Output 


Definition• 

procedure REWRITEC 

F ' filetype; 
const S : STRING); 


Inhere 

Fisa variable of a file type 
S is an optional string value that 
specifies options 


REWRITE positions the file pointer to 
the beginning of the file and prepares 
the file to be used for output. This 
procedure can be thought of as* 

1. Closing the file (if open). 

2. Rewinding the file. 

3. Opening the file for output. 

The string parameter is used to specify 
any special file dependent options to be 
used in opening the file. Consult the 
Pascal/VS Programmer’s Guide , order 
number SH20-6162 which describes the 
options that are available. 


10.3 TERMIN PROCEDURE 


Open a File for Input from the Terminal 


Definition s 


procedure TERMINC 

F : TEXT; 

const S : STRING); 


Where •" 


Fisa variable of type 
S is an optional string 
specifies options 

TEXT 

value that 


TERMIN opens the designated file for 
input from the users terminal. The 
string parameter is used to specify any 
special file dependent options to be 
used in opening the file. Consult the 
Pascal/VS Programmer's GuidQ > order 
number SH20-6i62 which describes the 
options that are available and operating 
system dependencies on this procedure. 
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10.S PDSIN PROCEDURE 




10.4 TERMOUT PROCEDUR 


OpQn a File for Output from the Terminal 


Definition J 


procHdure TERMOUT( 

F : TEXT; 

const S : STRING); 


Where ' 


Fisa variable of type 
S is an optional string 
specifies options 

TEXT 

value that 


Open a File for Input from a PDS 


Definition ? 

procedure PDSIN( 

F J filetype; 
const S ; STRING); 


Ulhere» 

Fisa variable of a file type 
S is a string value that specifies 
options 


TERMOUT opens the designated file for 
output to the users terminal. The 
string parameter is used to specify any 
special file dependent options to be 
used in opening the file. Consult the 
Pascal/VS Programmer *s Guide > order 
number SH20-6162 which describes the 
options that are available and operating 
system dependencies on this procedure. 


PDSIN opens a member in a library (par¬ 
titioned) file for input. 

The string parameter is used to specify 
any special file dependent options to be 
used in opening the file. Consult the 
Pascal/VS Programmer's Guide > order 
number SH20-6162 which describes the 
options that are available. 
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10.6 PDSOUT PROCEDURE 

10.7 UPDATE PROCEDURE 

Open a File for Output to a PDS 

Open a File for Input and Output 

Definition: 

1 

1 

Definition 5 

procedure PDS0UT( 

F ' filetype; 
const S •• STRING); 

1 

1 

procedure UPDATE( 

F : filetype; 
const S : STRING); 

Where • 

1 

1 

Wheres 

Fisa variable of a file type» 

S is a string value that specifies 
options. 


1 

Fisa variable of a file type, 

S is a string value that specifies 
options. 


PDSOUT opens a member in a library (pai— 
titioned) file for output. 

The string parameter is used to specify 
any special file dependent options to be 
used in opening the file. Consult the 
Pascal/VS Programmer’s Guide t order 
number SH20-6162 which describes the 
options that are available. 


UPDATE opens a file for both input and 
output (updating). A PUT operation 
replaces a file component obtained from 
a preceding GET operation. The exe¬ 
cution of UPDATE causes an implicit GET 
of the first file component (as in 
RESET). The following program fragment 
illustrates the use of UPDATE. 

var 

FILEVAR : file Of record 

CNT : INTEGER; 

end; 

UPDATE(FILEVAR); (open and get > 

While not E0F(FILEVAR) do 
begin 

FILEVARa.CNT := FILEVARSl. CNT + 1; 

PUT(FILEVAR); (update last elem) 

GET(FILEVAR); (get next elem } 

end; 


The string parameter is used to specify 
any special file dependent options to be 
used in opening the file. Consult the 
Pascal/VS Programmer's Guide > order 
number SH20-6162 which describes the 
options that are available. 
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+ 10.8 CLOSE PROCEDURE 



+ CLOSE closes a file; all processing to 
+ the file is completed. You must open 
+ the file prior to using it again. 


10.9 GET PROCEDURE 


Position a File to Next Element 


Definition• 

procedure GET( F : filetype ); 
Where• 

Fisa variable of a file type. 


I GET positions the file poir^ter of a file 
I (previously opened for input) to the 
next component in the file. For 
example^ if the file is defined as an 
array of 80 characters^ then each GET 
returns the next 80 character record. A 
GET invocation on a file of type TEXT 
returns a single character. 
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10.10 PUT PROCEDURE 


Position a File to Next Element 


Definition• 

procedure PUT( F : filetype ); 


Mhere ' 

Fisa variable of a file type. 


PUT releases the current component of 
the file variable by effectively writing 
the component to the associated physical 
file. A call to PUT with a file of type 
TEXT transfers a single character. The 
file must have been previously opened 
for output. 
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10.11 SEEK PROCEDURE 


Position a File to a Specified Element 


Definition• 

procedure SEEKC 

F 5 filetype; 
N : INTEGER); 


Uhere• 


Fisa variable of a file type^ 
N i5 an component number of 



SEEK specifies the number of the next 
file component to be operated on by a 
GET or PUT operation. File components 
are origined at 1. The SEEK procedure 
is not supported for TEXT files. The 
file specified in the SEEK procedure 
must have been opened by RESET, REWRITE 
or UPDATE. For more infomation, consult 
the Pascal/VS Programmer’s Guide , order 
number SH20-6162. 








10.12 EOF FUNCTION 


10.13 READ AND READLN (TEXT FILES) 


Test File for End Of File 


Definition» 

function EOFCF^filetype):B00LEAN; 
function E0F:B00LEAN; 


Mhere • 

Fisa variable of a file type. 


EOF is a BOOLEAN valued function which 
returns TRUE if the end-of-file cond¬ 
ition is true for the file. This condi¬ 
tion occurs in an input file when an 
attempt i s made to read past the last 
record element of the file. If the file 
is open for output, this function always 
returns TRUE. 

If the file variable F is omitted, then 
the function assumes the predefined file 
INPUT. 


Example: 

{ The following will read all of } 
{ the records from File SYSIN } 
{ and write then out to SYSOUT } 

type FREC = 

record 

A,B : INTEGER 
end; 

var 
SYS IN 

SYSOUT: file of FREC; 
begin 

RESET(SYSIN); 

REWRITECSYSOUT); 

While not EOFCSYSIN) do 

begin 

SYSOUTa := SYSINa; 
PUT(SYSOUT) ; 

GET(SYSIN) 

end; 

end; 


Read Data from TEXT File 


Definition: 

procedure READC 

f : TEXT; 

V : see below); 

procedure READLNC 

f : TEXT; 

V : see below); 

Where: 

f is an optional text file 

that is to be used for input. 
I V is one or more variables, 

I each must be one of the 

following types: 

- INTEGER (or subrange) 

- CHAR (or subrange) 

- REAL 

I - SHORTREAL 

- STRING 

- packed array of CHAR 


The READ procedure reads character data 
from the TEXT file f. READ converts 
character data to conform to the type of 
the operand. The file parameter is 
optional; the default file is INPUT. 

READLN positions the file at the begin¬ 
ning of the next line. You may use more 
than one variable on each call by sepa¬ 
rating each with a comma. The effect is 
the same as multiple calls to READ. 


READ(f,vl,v2) 
i s equi valent to •' 
begin 

READ(f,vl); 

READ(f,v2) 

end 

and 

READLN(f,vl,v2,v3) 
is equivalent to: 

begin 

READ(f,vl); 

READ(f,v2); 

READ(f,v3); 

READLN(f); 
end 

Multiple Variables on READ or READLN 


I/O Facilities 


109 






Reading INTEGER Data 


INTEGER data from a TEXT file is read by 
scanning off leading blanks^ accepting 
an optional sign and converting all 
characters up to the first non-numeric 
I character or end-of-line. 


Reading CHAR Data 

A variable of type CHAR is assigned the 
next character in the file. 


Reading STRING Data 

Characters are read into a STRING vari¬ 
able until the variable has reached its 
maximum length or until the end of the 
line is reached. 


Reading REAL (SHORTREAL) Data 

REAL (SHORTREAL) data is read by scan¬ 
ning off leading blanks* accepting an 
optional sign and converting all charac¬ 
ters up to the first non-numeric charac¬ 
ter not conforming to the syntax of a 
REAL number. 


+ Reading packed array of CHAR Data 
+ 

+ If the variable is declared as a 
+ ’packed arrayCl..n] of CHAR’, charac- 
+ ters are stored into each element of the 
+ array. This is equivalent to a loop 
+ ranging from the lower bound of the 
+ array to the upper bound, performing a 
+ read operation for each element. If the 
+ end-of-line condition should become 
+ true before the variable is filled, the 
+ rest of the variable is filled with 
+ blanks. 

+ 

+ Consult the Programmer’s Guide for more 
+ details on the use of READ and READLN. 


var 

I,J: INTEGER; 

S: STRING(IOO); 

CH: CHAR; 

CC: packed arrayCl..101 of CHAR; 
F: TEXT; 


READLN(F,I,J,CH,CC,S); 


assume the data is^ 

36 24 ABCDEFGHIHKLMNOPQRSTUVWXYZ 


the variables would be assigned: 

I 36 

J 24 

CH ’ ’ 

CC ’ABCDEFGHIJ’ 

S ’KLMNOPQRSTUVWXYZ’ 

LENGTH(S) 16 

The READ Procedure 


Reading Variables with a Length 

You may optionally qualify a variable of 
READ with a field length expression: 

READCf,v:n) 

where ”v” is the variable being read and 
”n” is the field length expression. 

This expression denotes the number of 
characters in the input line to be proc¬ 
essed for that variable. If the number 
of characters indicated by the field 
length is exhausted during a read opera¬ 
tion, then the reading operation will 
stop so that a subsequent read will 
begin at the first character following 
the field. If the reading completes 
prior to processing all characters of 
the field then the rest of the field is 
skipped. 
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vap 

I,J: INTEGER; 

S: STRING(IOO); 

CH: CHAR; 

CC: packed arpayCl,.10] of CHAR; 

P: TEXT; 


READIN(F,I:4,J:10,CH:J,CC,S); 


assume the data is: 

36 24 ABCDEFGHIKLMNOPQRSTUVWXYZ 


the variables Mould be assigned: 

I 36 

J 4 

CH ’I’ 

CC ’NOPQRSTUVW* 

S »XYZ* 

LENGTH(S) 3 

The READ Procedure Mith Lengths 



Read Data from Non-TEXT Files 



Each call to READ Mill read one file 
element from file ’f* and assign it to 
variable 'v*. If the file is not open, 
the READ procedure Mill open it prior to 
assigning to the argument. 

READ(f,v) is functionally equivalent to 
the folloMing compound statement: 

begin v ••= fa; GET(f) end 

For more details consult the Program¬ 
mer’ s Guide. 
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10.15 URITE AND URITELN (TEXT FILES) 


Write Data to File 


Definitioni 

procedure WRITEC 

f : TEXT; 
e •* see beloM); 

procedure WRITELN( 
f : TEXT; 
e : see beloN); 

Where» 

f is an optional TEXT file 
variable. 

e is an expression of one of the 
following types^ 

- INTEGER (or subrange) 

- CHAR (or subrange) 

- REAL 

- SHORTREAL 

- BOOLEAN 

- STRING 

- packed arrayCl..n] of CHAR 
Past:al/VS accepts a special para¬ 
meter format which is only 
allowed in the WRITE routine 

for TEXT files. 

See the following description. 


The WRITE procedure writes character 
data to the TEXT file specified by f. 
The data is obtained by converting the 
expression e into an external form. The 
file parameter is optional; if not spec¬ 
ified, the default file OUTPUT is used. 

WRITELN positions the file to the begin¬ 
ning of the next line. WRITELN is only 
applicable to TEXT files. You may use 
more than one expression on each call by 
separating each with a comma. The 
effect is the same as multiple calls to 
WRITE. 


WRITE(f,el,e2) 
is equivalent to^ 
begin 

WRITE(f,el); 

WRITE(f,e2) 

end 

and 

WRITELN(f,el,e2,e3) 
is equivalent to^ 
begin 

WRITE(f,el); 

WRITE(f,e2); 

WRITE(f,e3); 
WRITELN(f); 
end 

Multiple Expressions on WRITE 


Pascal/VS supports a specialized form 
for specifying actual parameters on 
WRITE and WRITELN to TEXT files. This 
provides a means by which you can speci¬ 
fy the length of the resulting output. 
Each expression in the WRITE procedure 
call may be represented in one of three 
forms 5 


1. e 

2. e : lenl 

3. e : lenl : len2 


The expression e may be of any of the 
types outlined above and represents the 
data to be placed on the file. The data 
i s converted to a character represen¬ 
tation from the internal form. The 
expressions lenl and len2 must evaluate 
to an INTEGER value. 

The expression lenl supplies the length 
of the field into which the data is 
written. The data is placed in the 
field justified to the right edge of the 
+ field. If lenl specifies a negative 
+ value, the data is justified to the left 

I within a field whose length is 

ABS(lenl). 

The len2 expression (form 3) may be 
specified only if e is an expression of 
type REAL. 

If lenl is unspecified (form 1) then a 
default value is used according to the 
table below. 
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type of 
expre:55ion e 


default value 
of lenl 


INTEGER 

REAL 

SHORTREAL 

CHAR 

BOOLEAN 

STRING 

array of CHAR 


12 

20 ( E notation ) 
20 
1 

10 


LENGTHCexpress!on) 
length of array 


Default Field Width on WRITE 


Writing INTEGER Data 

The expression lenl represents the mini¬ 
mum width of the field in which the 
integer is to be placed. The value is 
convertcid to character format and placed 
in a field of the specified length. If 
the field is shorter than the size 
required to represent the value# the 
length of the field will be extended. 

Examples ‘ 


lenl is not specified (form D# the 
result will be in scientific notation in 
a 20 character field. 

If lenl is specified and len2 is not 
(form 2)# the result will be in scien¬ 
tific notation but the number of cliarac- 
ters in the field will be the value of 
lenl. 

If both lenl and len2 are specified 
(form 3)# the data will be written in 
fixed point notation in a field with 
length lenl; len2 specifies the number 
of digits that will appear to the right 
of the decimal point. The REAL expres¬ 
sion is always rounded to the last digit 
to be printed. 

If lenl is not large enough to fully 
represent the number# it will be 
extended appropriately. 

Examples• 

Call: Result: 

WRITE(3.14159:10) 

' 3.142E+00» 


WRITE(3.14159) 

’ 3.1415900000000E+00’ 


Call: 

WRITE(1234:6) 


Result: 

’ 1234* 


WRITE(3.14159:10:4) 


3.1416 ' 


+ WRITE(1234:-6) 

WRITE(1234:l) 
WRITE(1234) 

I WRITE(1234:-3) 


’1234 ' 

’1234’ 
1234* 

’1234* 


Writing CHAR Data 


The value of lenl is used to indicate 
the width of the field in which the 
character is to be placed. If lenl is 
not specified# a field width of 1 is 
assumed. If lenl is greater than 1 then 
+ the character will be padded on the left 
+ with blanks; if lenl is negative, then 
+ the character will be padded on the 
+ right. 

Example: 


Writing BOOLEAN Data 


The expression lenl is used to indicate 
the width of the field in which the boo- 
+ lean is to be placed. If the width is 
+ less than 6# then either a 'T’ or ’F’ 
+ will be printed. Otherwise# ’TRUE’ or 
+ ’FALSE’ will be sent to the file. The 
+ data is placed in the field and justi- 
+ fied according to the previously stated 
+ rules. 


Examples: 

Call: 

WRITE(TRUE:10) 

+ WRITE(TRUE:-10) 
+ 

+ WRITE(FALSE:2) 


Result: 

’ TRUE’ 
’TRUE ’ 
’ F' 


call: Result: 

WRITE(’a’:6) ’ a’ 

WRITE(’a’:-6) ’a ’ 


Writing REAL Data 

REAL expressions may be printed with any 
one of the three operand formats. If 


Writing STRING Data 


The second expression is used to indi¬ 
cate the width of the field in which the 
string is to be placed. The data is 
placed in the field and justified 
according to the previously stated 
rules. 
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Examples s 


Calls 

Result 

WRITEC’abed’s6) 

’ abed’ 

WRITEC’abed’s-6) 

’abed ’ 

WRITEC’abed’s2) 

’ab’ 

WRITEC’abed’) 

’abed’ 


Mritinq Packed Array of CHAR Data 

The second expression is used to indi¬ 
cate the width of the field in which the 
array is to be placed. The data is 
placed in the field and justified 


according to the 
rules. 

Examples •* 

var 

A : packed 

arrayC 1..c 

A : = ’abed’; 

Call: 

WRITE(A:6) 

+ WRITE(A:-6) 
WR1:TE(A:2) 
WRITE(A) 


previously stated 


] Of CHAR; 


Results 

’ abed' 
’abed ’ 
’ab’ 
’abed’ 


10.16 URITE (NON-TEXT FILES) 


Write Data to Non-TEXT Files 


Definition s 

procedure WRITEC 

f s file of t; 
e 5 t); 

Where • 

f is an arbitrary file variable, 
e is an expression whose type 
matches the file component 
type of f 


Each call to WRITE will write the value 
of expression e to file ’f’ . 

WRITE(f,e) is functionally equivalent 
to the following compound statements 

begin fa s= ©; PUT(f) end 

For more details consult the Program¬ 
mer ’s Guide. 
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10.17 EOLN FUNCTION 


Test a File for End of Line 



The EOLN function returns a BOOLEAN 
result of TRUE if TEXT file f is posi” 
tioned to an end-of-line character; 
otherwise, it returns FALSE. 

If EOLN(f) is true, then fS) has the val¬ 
ue of a blank. That is, when EOLN is 
TRUE the file is positioned to a blank. 
This character is not in the file but 
will appear as if it were. In many 
applications the extra blank will not 
affect the result; in those instances 
where the physical layout of the data is 
significant you must be sensitive to the 
EOLN condition. 

If the file variable F is omitted, then 
the function assumes the predefined file 
INPUT. 


10.18 PAGE PROCEDURE 


Force Skip to Next Page 



This procedure causes a skip to the top 
of the next page when the text-file is 
printed. The file parameter is optional 
and defaults to the standard file vari¬ 
able OUTPUT. 
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+ 10.19 COLS FUNCTION 
+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 
f 
+ 

+ 

+ 


Determine Current Column 

Definition• 

function COLSC 

var f: TEXT ) : INTEGER; 

Uhere ’ 

f i s ,a TEXT file set to 
output. 


+ This function returns the current column 
+ number (position of the next character 
+ to be written) on the output file desig- 
+ nated by the file variable. You may 
+ force the output to a specific column 
+ with the following code? 

+ 

+ If TAB > COLS(F) then 
+ WRITE(F,» »:TAB-C0LS(F)); 

+ 

+ 

+ The file name is never defaulted on the 
+ COLS procedure. 
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11.0 EXECUTION LIBRARY FACILITIES 


The 

runtime library consists of those 

+ 

• 

MAXLENGTH Function 


routines that are 

predefined in 

+ 




Pascal/VS. In addition 

to the routines 

+ 

• 

MIN Function 


described in this chapter, Pascal/VS 
provides routines with which to do input 


• 

NEW Procedure 


and 

output. Consult the 

I/O chapter for 





a description of those 

routines. The 



ODD Function 


predefined procedures 

and functions 





ar© 




• 

ORD Function 


• 

ABS Function 



• 

PACK Procedure 


• 

ARCTAN Function 


+ 

• 

PARMS Function 


• 

CHR Function 



• 

PRED Function 

+ 




+ 



+ 

• 

CLOCK Function 


+ 

• 

RANDOM Function 

+ 




+ 



+ 

• 

COMPRESS Function 


+ 

4* 

• 

READSTR Procedure 


• 

COS Function 


+ 

• 

RELEASE Procedure 

+ 




+ 



+ 

4. 

• 

DATETIME Procedure 


+ 

• 

RETCODE Procedure 

T 

+ 

• 

DELETE Function 



• 

ROUND Function 


# 

DISPOSE Procedure 


+ 

• 

Scalar Conversion 


• 

EXP Function 



• 

SIN Function 

+ 




+ 



+ 

• 

FLOAT Function 


+ 

• 

SIZEOF Function 

T 

+ 


INDEX Function 



• 

SQR Function 

T 

+ 

• 

HALT Procedure 



• 

SQRT Function 

+ 




+ 



+ 

• 

HBOUND Function 


+ 

• 

STR Function 

+ 




+ 



+ 

X 

• 

HIGHEST Function 


+ 

• 

SUBSTR Function 

T 

+ 

J. 

• 

LBOUND Function 



# 

SUCC Function 

T 

+ 

• 

LENGTH Function 


X 

# 

TRUNC Function 


• 

LN Function 


T 

+ 

• 

TRIM Function 

+ 




+ 



+ 

X 

• 

LOWEST Function 


+ 

• 

TOKEN Function 

T 

+ 

X 

• 

LTRIM Function 



• 

TRACE Procedure 

T 

+ 

X 

• 

MARK Procedure 



• 

UNPACK Procedure 

+ 

• 

MAX Function 



• 

WRITESTR Procedure 


Execution Library Facilities 


117 





TNL SN204446 (31 December 81) to SH20-6168-1 


11.1 MEMORY MANAGEMENT ROUTINES 


These routines provide means by which you can control the allocation of dynamic vai— 
i ables. 


+ 11.1.1 MARK Procedure 


+ 11.1.2 RELEASE Procedure 



Release Heap 

Definition ? 

procedure RELEASEC 

var P : pointer ); 

Mhere• 

Pisa pointer to any type. 


The MARK procedure allocates a new area 
of memory from where dynamic variables 
are to be allocated. Such an area is 
called a heap. . The predefined proce¬ 
dure NEW allocates a dynamic variable 
from the most recently created heap. 
The predefined procedure DISPOSE 
de-allocates a dynamic variable from the 
heap. 

RELEASE is the complementary procedure 
which destroys a heap. Heaps are cre¬ 
ated and destroyed in a stack-like fash- 
i on. 

MARK does not allocate dynamic 
variables. The pointer variable passed 
as parameter P is set to the address of 
the associated heap control block; thus> 
the returned pointer must not be used as 
the base of a dynamic variable. 


RELEASE frees one or more heaps that 
were previously allocated by calls to 
MARK. (See the description of MARK for 
a definition of "heap”.) The parameter 
of RELEASE must contain the address 
returned by a previous call to MARK; it 
is through this parameter that the heap 
is identified. 

RELEASE frees all heaps that were allo¬ 
cated since the corresponding MARK was 
executed. Thus, heaps are created and 
destroyed in a stack-like manner. 

When a heap is freed, all of the dynamic 
variables which were allocated from the 
heap are also freed. As a result, 
RELEASE is a means for disposing of many 
dynamic variables at one time.'^ 

RELEASE sets its parameter variable (P) 
to nil. 


Pointers which reference dynamic variables of a heap are no longer defined 
when the heap is freed. Subsequent uses of such pointer values may cause 
unpredictable results. 
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+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 


type 

MARKP = aiNTEGER; 

LINKP = SLINK; 

LINK = record 

NAME: STRING(30); 
NEXT: LINKP 
end; 

var 

P : MARKP; 

Ql, 

Q2, 

Q3 : LINKP; 
begin 

MARK(P); 

NEW(Ql); 

NEW(Q2); 

NEW(Q3); 


C Frees Ql> Q2 and Q3 } 

RELEASE(P); 

end; 


Example of MARK and RELEASE 
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11.1.3 NEM Procedure 


Allocate Dynamic Variable 


Definition• 
form 1: 

procedure NEWC 

var P I pointer ); 

form 2’ 

procedure NEWC 

var PI J pointer; 

tl»t2. . . : scalar); 

form 3- 

procedure NEWC 

var SP : STRINGPTR; 

LEN : INTEGER; 

Where ? 

P is a pointer to any type 
except a dynamic array. 

PI is a pointer to a record 
type with variants 
SP is a STRINGPTR 
tl,t2... are scalar constants 
representing tag fields 
LEN is an integer valued expression 


The NEW procedure allocates a dynamic 
variable from the most recent heap and 
sets the pointer to point to the vari¬ 
able. 

form 1 

The first form of procedure NEW allo¬ 
cates the amount of storage that is nec¬ 
essary to represent a value of the type 
to which the pointer refers. If the 
type of the dynamic variable is a record 
with a variant part» the space allocated 
is the amount required for the record 
when the largest variant is active. 


type 

LINKP = aLINK; 

LINK = record 

NAME: STRINGC30); 

NEXT: LINKP 

end; 

var 

P, 

HEAD : LINKP; 

begin 

NEWCP); 
with pa do 
begin 

NAME := »»; 

NEXT := HEAD; 

end; 

HEAD := P; 

end; 

Example of using Simple Form 
of Procedure NEW 


form 2 

The second form is used to allocate a 
variant record when it is known which 
variant Cand sub-variants) will be 
active, in which case the amount of 
storage allocated will be no larger than 
necessary to contain the variant speci¬ 
fied. The scalar constants are tag 
field values. The first one indicates a 
particular variant in the record which 
will be active; subsequent tags indicate 
active sub-variants, sub-sub-variants, 
and so on. 

Note: This procedure does not set tag 
fields. The tag list only serves to 
indicate the amount of storage required; 
it is the programmer's responsibility to 
set the tag fields after the record is 
allocated. 
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11.1.4 DISPOSE Procedure 


type 

AGE = 0..100; 

RECP = aREC; 

REC = 

record 

NAME: STRING(30); 
case H0W_0LD: AGE Of 
0..18: 

(FATHER: RECP); 

19..100 : 

(case MARRIED: BOOLEAN of 
TRUE: (SPOUSE: RECP); 
FALSE: () 

) 

tsnd; 

var 

P : RECP; 

begin 

NEW(P,18); 
with pa do begin 

NAME := ’J. B. SMITH, JR’ 
HOW_OLD := 18; 
NEW(FATHER,54,TRUE); 
with FATHERa do begin 
NAME := 'J. B. SMITH’; 

HOW_OLD := 54; 

MARRIED := TRUE; 
NEW(SPOUSE,50,TRUE); 

end {with fathera}; 
end {with pa); 

end; 


De-allocate Dynamic Variable 


Definition: 

procedure DISPOSE! 

var P : pointer); 


Where: 

P is any pointer type. 


DISPOSE returns storage for a dynamic 
variable. You may de-allocate a dynamic 
variable from any heap. This procedure 
only returns the storage referred to by 
the pointer and does not return any 
storage which the dynamic variable ref¬ 
erences. That is, if the dynamic 
variable is part of a linked list, you 
must explicitly DISPOSE of every element 
of the list. DISPOSE sets the pointer 
to nil. If you have other pointers 
which reference the same DISPOSEd dyna¬ 
mic variable, then it is your 
responsibility not to use these pointers 
because the dynamic variable which they 
represented is no longer allocated. 


Using NEW for Allocating 
Records with Variants 


form 3 


The tin rd form is used to allocate a 
string whose maximum length is known 
only during program execution. The 
amount of storage to be available for 
the string is defined by the required 
second parameter. See ’’The Type 
STRINGPTR” on page 58. 


120 


Pascal/VS Reference Manual 




11.2 DATA MOVEMENT ROUTINES 


These routines provide you with convenient ways to handle large amounts of data 
movement efficiently. 

11.2.1 PACK Procedure 11.2.2 UNPACK Procedure 


Copy Unpacked Array to Packed Array 


Definition « 

procedure PACKC 

const SOURCE ' array-type; 

INDEX • index_of_source; 
var TARGET 5 pack_array_type) 

Uhere ’ 

SOURCE is an array, 

INDEX is an expression which is 
compatible with the index 
of SOURCE. 

TARGET is a variable of type packed 
array. 


This procedure fills the target array 
with elements from the source array 
starting with the i ndex I where the tai— 
get array is packed. The types of the 
elements of the two arrays must be iden¬ 
tical. This procedure operates asJ 

Giveni 

A 5 arrayCm..nl of T; 

Z : packed array[u..v] of T; 

Call: 

PACKCA, I, Z); 

Operation: 
k : = T.; 

for j := LBOUND(Z) to HBOUNDCZ) do 
begin 

ZCj] := ACk]; 
k :== SUCC(k) 
end; 

Ulhere: 

j and k are temporary variables. 


Copy Packed Array to Unpacked Array 


Definition: 

procedure UNPACKC 

var SOURCE : pack_array_type; 
const TARGET : array-type; 

INDEX : index_of_target); 

Uhere: 

SOURCE is a packed array. 

TARGET is a variable of type array. 
INDEX is an expression which is 
compatible with the index 
of TARGET. 


This procedure fills the target array 
with elements from the source array 
where the source array is packed. The 
type of the elements of the two arrays 
must be identical. This procedure opet— 
ates as: 

6iven: 

A : arrayCm..n] of T; 

Z : packed array[u..v3 of T; 

Call: 

UNPACKCZ, A, I); 

Operation: 
k := I; 

for j := LBOUND(Z) to HBOUNDCZ) dO 
begin 

ACk] := ZCj]; 
k := SUCC(k) 
end; 

Where: 

j and k are temporary variables. 


It i s an error if the number of elements 
It i s an error if the number of elements in Z is greater than the number of ele- 

in Z is greater than the number of ele- ments in A starting with the Ith element 

ments in A starting with the Ith element to the end of the array, 
to the end of the array. 
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11.3 DATA ACCESS ROUTINES 


These routines provide you a means to inquire about compile and run time bounds and 
values.. 


+ 11.3.1 LOWEST Function 


+ 11.3.2 HIGHEST Function 



Louiest Value of a Scalar 


Def 1 nition: 

function LOWEST( 


S : 

scalai—type) 

Where: 

scalar; 

S is an identifier 

that has been 

declared as a scalar type, or 

a variable which 
type. 

is of a scalar 


Highest Value of a Scalar 


Definition: 

function HIGHEST( 


S : 

scalai—type) 

Where: 

scalar; 

S is an identifier 

that has been 

declared as a scalar type, or 

a variable which 
type. 

is of a scalar 


+ This function returns the lowest value 
+ that is in the scalar type. The operand 
+ may be either a type identifier or a 
+ variable. If the operand is a type 
+ identifier, the value of the function is 
+ the lowest value that a variable of that 
+ type may be assigned. If the operand is 
+ a variable, the value of the function is 
+ the lowest value that the variable may 
+ be assigned. 

+ 

+ If the argument S refers to a 
+ record-type which has a variant part, 
+ and if no tag values are specified, then 
+ the storage required for the record with 
+ the largest variant will be returned. 

+ 

+- 

+ 

+ Example: 

+ 

+ type 

+ DAYS = (SUN, MON, TUES, WED, 

+ THU, FRI, SAT); 

+ SMALL =0 .. 31; 

+ var 

+ I : INTEGER; 

+ J : 0 .. 255; 

+ 

+ 

+ LOWEST(DAYS) is SUN 

+ LOWEST(BOOLEAN) is FALSE 

+ LOWEST(SMALL) is 0 

+ LOWEST(I) is MININT 

+ L0U!EST(J) is 0 

+ 

+ The LOWEST Function 

+ 


+ This function returns the highest value 
+ that is in the scalar type. The operand 
+ may be either a type identifier or a 
+ variable. If the operand is a type 
+ identifier, the value of the function is 
+ the highest value that a variable of 
+ that type may be assigned. If the opei— 
+ and is a variable, the value of the 
+ function is the highest value that the 
+ variable may be assigned. 

+ 

+ - 

+ 

+ Example: 

+ 

+ type 

+ DAYS = (SUN, MON, TUES, WED, 

+ THU, FRI, SAT); 

+ SMALL = 0 .. 31; 

+ var 

+ I : INTEGER; 

+ J : 0 .. 255; 

+ 

+ 

+ HIGHEST(DAYS) is SAT 

+ HIGHEST(BOOLEAN) is TRUE 

+ HIGHEST(SMALL) is 31 

+ HIGHEST(I) is MAXINT 

+ HIGHEST(J) is 255 

+ 

+ The HIGHEST Function 

+ 

+ - 
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+ l]l.3.3 LBOUND Function 


Louier Bound of Array 


Definiti 

on ♦ 


function 

LBOUNDC 

V 

I 

arraytype; 
integei—const) 
scalar; 

function 

LBOUNDC 

T 

I 

type-identifier; 
integer-const) 
scalar; 

Where ’ 



Visa variable which is declared 
as an array type. 

T is an type identifier declared 
as an array. 

I is an positive integer valued 
constant expression and is 
optional. 


+ 11.3.4 HBOUND Function 


Upper Bound of Array 


Definition: 


function 

HBOUNDC 

V 

I 

arraytype; 
integei—const) 
scalar; 

function 

HBOUNDC 

T 

I 

type-identifier; 
integei—const) 
scalar; 

Where ^ 



Visa variable which is declared 
as an array type. 

T is an type identifier declared 
as an array. 

I is an positive integer-valued 
constant expression and is 
optional. 


+ The LBOUND function returns the lower 
+ bound of an index to an array. The 
+ array may be specified in two ways? 

+ 

+ • an identifier which was declared as 
+ an array type via the type 

+ construct; 

+ 

+ • a variable which is of an array 

+ type. 

+ 

+ The value returned is of the same type 
+ as the type of the index. The second 
+ parameter defines the dimension of the 
+ array for which the lower bound is 
+ returned. It is assumed to be ”1” if it 
+ is not specified. 

+ 


+ The HBOUND function returns the upper 
+ bound of an index to an array. The 
+ array may be specified in two waysJ 
+ 

+ • an identifier which was declared as 
+ an array type via the type 

+ construct; 

+ 

+ • a variable which is of an array 

+ type. 

+ 

+ The value returned is of the same type 
+ as the type of the index. The second 
+ parameter defines the dimension of the 
+ array for which the upper bound is 
+ returned. It is assumed to be ”1” if it 
+ is not specified. 

+ 


+ 


+ 

Example-' 




+ 

type 




+ 

GRID - 

arrayC-lO. 

.10,-10. 

.103 of 

+ 


REAL; 



+ 

var 




+ 

A 

: array! 1 

. .100 3 

of ALFA; 

+ 

B 

•• array! 1 

. .100 3 

of 

+ 

+ 


of array! o.. 9 

3 of CHAR; 

+ 

+ 

LBOUNDC 

A ) 

i s 1 


+ 

LBOUNDC 

GRID, 1) 

is -10 


+ 

LBOUNDC 

B, 2 ) 

is 0 


+ 

LBOUNDC 

B!13 ) 

is 0 



+ 


+ The LBOUND Function 

+ 

+ --- 


+ 

+ Example^ 

+ 

+ type 

+ GRID = array[-lO..10,-10..101 of 

+ REAL; 


+ van 

+ A 5 GRID; 

+ B *• arrayC 1 .. 100 3 of 

+ of array! 0..9 3 of CHAR; 

+ 

+ 

+ HBOUNDC A ) is 10 

+ HBOUNDC GRID ) is 10 

+ HBOUNDC B, 2 ) is 9 

+ HBOUNDC BC13 ) is 9 

+ 

+ The HBOUND Function 
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+ 11.3.5 SIZEOF Function 
+ 

+ 


+ 

Allocation 

Size of Data 

+ 

Definition ! 


+ 

+ 

function SIZEOFC 


+ 

s 

’ anytype) 

+ 


: INTEGER; 

+ 

+ 

function SIZEOFC 


+ 

s 

• recordtype; 

+ 

tl,t2, . . . 

’ tags); 

+ 


: INTEGER; 

+ 

+ 

Where • 


+ 

+ 

S i5 an identifier that has been 

+ 

declared as a 

type» or any 

+ 

variable. 


+ 

+ 

X 




+ The SIZEOF function returns the amount 
+ of storage in bytes required to contain 
+ the variable or a variable of the type 
+ specified. 

+ 

+ If S is a record variable or a type 
+ identifier of a record^ it may be fol- 
+ loujed by tag list which defines a pai— 
+ ticular variant configuration of the 
+ record. In this case the function will 
+ return the amount of storage required 
+ within the record to contain that vari- 
+ ant configuration. 
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11,4 CONVERSION ROUTINES 


This section documents predefined routjnes which preform conversions from one data 
type to another. Refer to "WRITESTR” on page 141 and "READSTR'* on page 141 for char¬ 
acter string conversions. 

11.4.1 ORD Function 11.4.5 CHR Fu nction 


Ordinal Value of Scalar 


Def i n i t i on *• 


function 0RD( 

S 

: scalar ) 

: INTEGER; 

Where: 


S is may be any 
a pointer. 

scalar type or 


This function returns an integer that 
corresponds to the ordinal value of the 
scalar. If the operand is of type CHAR 
then the value returned is the position 
in the EBCDIC character set for the 
character operand. If the operand is an 
enumerated scalar» then it returns the 
position in the enumeration (beginning 
at zero); for example^ if COLOR = (RED> 
YELLOW, BLUE), then ORD(RED) is 0 and 
ORD(BLUE) is 2. 

If the operand is a pointer, then the 
function returns the machine address of 
the dynamic variable referenced by the 
pointer, Although pointers can be con¬ 
verted to INTEGERS, there is no function 
provided to convert an INTEGER to a 
pointer. 


Integer to Character Conversion 


Definition ? 

function CHR( 

I : INTEGER ) 

: CHAR; 


Where» 

I is an INTEGER expression that is 
to be interpreted as a character. 


This function is the inverse function to 
ORD for characters. That is, 
*0RD(CHR(I))=I’ if I is in the subrange: 

0RD(LOWEST(CHAR))..0RD(HIGHEST(CHAR)) 

If the operand is not within this range 
and checking is enabled then a runtime 
error will result, otherwise the result 
is unpredictable. 
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+ 11.4.3 Scalar Conversion + 11.4.4 FLOAT Function 


+ 

+ 

+ 

Integer to Scalar Conversion 

+ 

+ 

+ 

Integer to Real Conversion 





+ 

Definition: 

+ 

Definition 5 

+ 


+ 


+ 

function type-id( 

+ 

function FL0AT( 

+ 

I J INTEGER) 

+ 

I : INTEGER ) 

+ 

‘ scalar-type; 

+ 

: REAL; 

+ 


+ 


+ 

Where J 

+ 


+ 


+ 

Where J 

+ 

I is an integer valued expression 

+ 


+ 

that is to be converted to an 

+ 

I is an INTEGER valued expression. 

+ 

enumerated scalar. 

+ 


+ 


+ 


+ 

+ 

_ 

+ 

+ 



Every type identifier for an enumerated 
scalar or subrange scalar can be used as 
a function that converts an integer into 
a value of the enumerated scalar. These 
functions are the inverse of ORD. 


Example J 

type 

DAYS 


= (SUN, MON, 
THU, FRI, 


TUES, 
SAT); 


14ED, 


DAYS(O) 

DAYS(3) 

DAYS(6) 

DAYS(7) 

BOOLEAN(O) 

BOOLEAN(l) 


1 s 
i s 
i s 
i s 
i s 
i s 


SUN 

WED 

SAT 

an error 

FALSE 

TRUE 


The Enumerated Scalar Function 


+ This function converts an INTEGER to a 
+ REAL. Pascal/VS will convert an INTEGER 
+ to a REAL implicitly if one operand of 
+ an arithmetic or relation operator is 
+ REAL and the other is INTEGER. This 
+ function is useful in making the convei— 
+ sion explicit in the program. 
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11.4.5 TRUNC Function 


11.4.6 ROUND Function 


Real to Integer Conversion Real to Integer Conversion 


Definition: 


function TRUNCC 

R 

: REAL ) 

: INTEGER; 

function TRUNCC 
s 

: SHORTREAL ) 

: INTEGER; 

Where: 


R is a REAL valued expression. 

S is a SHORTREAL valued expression. 


Definition: 

function ROUNDC 


R 

function ROUNDC 

: REAL ) 

: INTEGER; 

s 

: SHORTREAL ) 

: INTEGER; 

Where: 

R is a REAL valued expression. 

S is a SHORTREAL 

valued expression. 


This function converts a REAL expression 
to an INTEGER by truncating the operand 
toward zero. 


This function converts a REAL expression 
to an INTEGER by rounding the operand. 
This function equivalent to 


Examples: 

TRUNCC 1.0) is 1 
TRUNCC 1.1) is 1 
TRUNC( 1.9) is 1 
TRUNCC 0.0) is 0 
TRUNCC-l.O) is -1 
TRUNCC-l.l) is “1 
TRUNC(-1.9) is -1 


if R > 0.0 then 

ROUND := TRUNCCR + 0.5) 
else 

ROUND := TRUNCCR - 0.5) 

Examples: 

ROUNDC 1.0) is 1 
ROUNDC 1.1) is 1 
ROUNDC 1.9) is 2 
ROUNDC 0.0) is 0 
ROUNDC-1.0) is -1 
ROUNDC-1.1) is -1 
ROUNDC-1.9) is -2 
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+ This function converts either a CHAR or 
+ packed arrayCl..n] of CHAR to a STRING. 
+ Pascal/VS will implicitly convert a 
+ STRING to a CHAR or packed arrayCl..n3 
+ of CHAR on assignments but all other 
+ conversions require you to explicitly 
+ state the conversion. You may assign a 
+ CHAR to an packed arrayCl..n] of CHAR by 
+ either^ 

+ 

+ var 

+ AOC : ALPHA; 

+ CH : CHAR; 

+ • . . 

+ AOC := STR(CH); 

+ AOC := » *; AOCCl] := CH; 
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11.5 MATHEMATICAL ROUTINES 


These routines defined various mathematical transformations. 


+ 11.5.1 hIN Function + 11.5.2 MAX Function 


+ 

+ 

+ 

MINimum Value of Scalars 

+ 

+ 

+ 

Maximum Value of Scalars 





+ 

Definition J 

+ 

Definition 5 

+ 


+ 


+ 

function MINI 

+ 

function MAXC 

+ 

EO, 

+ 

EO, 

+ 


+ 


+ 

. 

+ 


+ 

En • scalai—type) 

+ 

En J scalar-type) 

+ 

i scalar-type; 

+ 

: scalar-type; 

+ 


+ 


+ 

WhereJ 

+ 

Where ' 

+ 


+ 


+ 

Ei is an expression of a scalar 

+ 

Ei is an expression of a scalar 

+ 

type. All parameters must be 

+ 

type. All parameters must be 

+ 

of the same type except where 

+ 

of the same type except where 

+ 

noted below. 

+ 

noted below. 

+ 


+ 


+ 


+ 


+ 


+ 



+ The MIN function returns the minimum 
+ value of two or more expressions. The 
+ parameters may be of any scalar type» 
+ including REAL. The parameters may be a 
+ mixture of INTEGER and REAL expressions, 
+ in which case, the result will be of 
+ type REAL. In all other cases, the 
+ parameters must be conformable to each 
+ other. 


+ The MAX function returns the maximum 
+ value of two or more parameters. The 
+ parameters may be of any scalar type, 
+ including REAL. They may be a mixture 
+ of INTEGER and REAL expressions, in 
+ which case, the result will be of type 
+ REAL. In all other cases, the parame- 
+ ters must be conformable to each other. 
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11.5.3 PREP Function 


Predecessor Value of a Scalar 


Definition• 

function PREDC 

S : scalar) 

J scalar; 


UJhere • 

S is any scalar expression. 


This function returns the predecessor 
value of the parameter expression. The 
PRED of the first element of an enumer¬ 
ated scalar is an error. If the option 
%CHECK is ON, a runtime error will be 
raised if the PRED of the first element 
is attempted. If the checking is not 
performed, the results of the PRED of 
the first value is not defined. 
PRED(TRUE) is FALSE and PRED('B’) is 
'A’. The PRED of an INTEGER is equiv¬ 
alent to subtracting one. PRED of a 
REAL argument is an error. 


11.5.4 succ Function 


Successor Value of a Scalar 


Definition• 

function SUCCC 

S I scalar) 

i scalar; 


Mhere• 

S is any scalar expression. 


This function returns the successor val¬ 
ue of the parameter expression. The 
SUCC of the last element of an enumei— 
ated scalar is an error. If the option 
%CHECK is ON, a runtime error will be 
raised if the SUCC of the last element 
is attempted. If the checking is not 
performed, the results of the SUCC of 
the last value is not defined. 
SUCCCFALSE) is TRUE and SUCCC’B») is 
*C». The SUCC of an INTEGER is equiv¬ 
alent to adding one. SUCC of a REAL 
argument is an error. 
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11.5.5 ODD Function 


11.5.6 ABS Function 


Test for Integer is Odd Absolute Value 


Definition» 

function ODD( 

I : INTEGER) 

: BOOLEAN; 


Mhere 

I is an INTEGER to be tested 
for being odd. 


This function returns TRUE if the param¬ 
eter I is odd, or FALSE if it is even. 


Definition 5 


function ABS( 

I 

: INTEGER ) 

: INTEGER; 

function ABS( 

R 

: REAL) 

: REAL; 

Where! 


I i s an INTEGER expression. 

R is a REAL expression. 


The ABS function returns either a REAL 
value or an INTEGER value depending the 
type of its parameter. The result is 
the absolute value of the parameter. 


Execution Library Facilities 


131 




11.5.7 SIN Function 

Compute Sine 

Definition♦ 

function SIN( 

X : REAL) 

: REAL; 

Uhere• 

X is an expression that evaluates 
to a REAL value. 


11.5.8 COS Function 

Compute Cosine 

Definition• 

function C05( 

X : REAL) 

: REAL; 

Uhere• 

X i5 an expression that evaluates 
to a REAL value. 


The SIN function computes the sine of 
parameter X, where X is expressed in 
radians. 


The COS function computes the cosine of 
the parameter X» where X is expressed in 
radians. 
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11.5.9 ARCTAN Function 


11.5.10 EXP Function 


Compute Arctangent 


Definition 5 


function ARCTANC 

X 

: REAL) 

: REAL; 

Mhere - 


X is an expression 
to a REAL value. 

that evaluates 


The ARCTAN function computes the 
arctangent of parameter X. The result is 
expressed in radians. 


Compute Exponential 


Definition J 


function EXP( 

X 

: REAL) 

: REAL; 

Ulhere: 


X is an expression 
to a REAL value. 

that evaluates 


The EXP function computes the value of 
the base of the natural logarithms, e, 
raised to the power expressed by parame¬ 
ter X. 
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11.5.11 LN Function 


11.5.12 SORT Function 


Compute Natural Log 


Definition 5 


function LN( 

X 

: REAL) 

: REAL; 

Where ’ 


X i3 an expression 
to a REAL value. 

that evaluates 


The LN function computes the natural 
logarithm of the parameter X. 


Compute Square Root 


Definition s 


function SQRT( 

X 

: REAL) 

: REAL; 

Where: 


X is an expression 
to a REAL value. 

that evaluates 


The SORT function computes the square 
root of the parameter X. If the argu¬ 
ment is less than zero» a run time error 
is produced. 
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11.5.13 SQR Function 


Compute Square 

Definition- 

function SQR( 

X •• REAL) : REAL; 

function SQR( 

X : INTEGER): INTEGER; 

Uhere: 

X is an expression that evaluates 
to a REAL or INTEGER value. 


The SQR function computes the square of 
the argument. If the argument is of 
type REAL, then a REAL result is 
returned, otherwise the function 
returns an INTEGER. 


+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

I 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
■ + 
+ 
+ 
+ 


11.5.14 RANDOM Function 


Compute a Random Number 


Definition: 


function RANDOMC 

S : INTEGER) 

REAL; 

Where: 


S is an expression that 
to an INTEGER value. 

evaluates 


The RANDOM function returns a pseudo 
random number in the range >0.0 and 
<1.0. The parameter S is called the 
seed of the random number and i s used to 
specify the beginning of the sequence. 
RANDOM always returns the same value 
when called with the same non zero seed. 
If you pass a seed value of 0, RANDOM 
will return the next number as generated 
from the previous seed. Thus, the gen¬ 
eral way to use this function is to pass 
it a non zero seed on the first invoca¬ 
tion and a zero value thereafter. 
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11.6 STRING ROUTINES 


These routines provide convenient means of operating on string data. 



LENGTH Function 


Length of String 


Definition: 


function LENGTH( 

s 


: STRING) 

J 0..32767; 


Uher e• 

S is a STRING valued expression 


11.6.2 MAXLENGTH Function 


Maximum Length of a String 



Definition 5 


function MAXLENGTH( 

S : 

STRING) 

• 

0 . .32767; 

Where• 

S is a STRING valued 

expression. 


+ This function returns the current length This function returns the maximum length 
+ of the parameter. The value will be in of the parameter string. The value will 
+ the range 0..32767. + be in the range 0..32767. 
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+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 


+ 

+ 

I 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 


11.6.3 SUBSTR Function + 11.6.4 DELETE Function 


Obtain Substring 

+ 

+ 

+ 

Delete Substring 

Definition: 

+ 

Definition ? 

function SUBSTR( 

+ 

function DELETE( 

const SOURCE : STRING; 

+ 

const SOURCE ? STRING; 

START : INTEGER; 

+ 

START ? INTEGER; 

LEN : INTEGER)? STRING; 

+ 

+ 

LEN ? INTEGER)? STRING; 

function SUBSTR( 
const SOURCE ? STRING; 

START : INTEGER)? STRING; 


h 

function DELETE( 
const SOURCE ? STRING; 

START ? INTEGER)? STRING; 

Where ? 

SOURCE is a STRING expression from 

+ 

+ 

Where ? 

which a substring will be 

+ 

SOURCE is a STRING expression from 

returned. 

START is an INTEGER expression that 

+ 

1 

which a portion will be 
deleted. 

designates the first position 

+ 

START is an INTEGER expression that 

in the SOURCE to be returned. 

LEN is an INTEGER expression that 

+ 

1 

designates the first position 
in the SOURCE to be deleted. 

defines the number of 


h 

LEN is an INTEGER expression that 

characters to be returned. 

+ 

1 

+ 

+ 

+ 

+ 

defines the number of 
characters to be deleted. 


The SUBSTR function returns a substring 
from the specified source string 
(SOURCE), The second parameter (START) 
specifies the starting position within 
the source from where the substring is 
to be extracted. (The first character 
of the source string is at position 1). 
The third parameter (LEN) determines the 
length of the substring. If the length 
is omitted, the substring returned will 
be the remaining portion of the source 
string from position START. 

The value of START + LEN-1 must be less 
than or equal to the current LENGTH of 
the string, otherwise, an error diagnos¬ 
tic will be produced at run time. 

+ Examples^ 

+ 

SUBSTR(’ABCDE’,2,3) yields 'BCD’ 
SUBSTR('ABCDE',1,3) yields 'ABC 
SUBSTR('ABCDE',4) yields 'DE' 

SUBSTR('ABCDE',1) yields 'ABCDE' 
SUBSTR('ABCDE',2,5) is an error 


The DELETE function returns the source 
string (SOURCE) with a portion of the 
string removed. The second parameter 
(START) specifies the starting position 
within the source where characters are 
to be deleted. (The first character of 
the source string is at position 1). 
The third parameter (LEN) specifies the 
number of characters to be deleted. If 
the length parameter is omitted, all 
remaining characters are deleted; more 
precisely, the string is truncated 
beginning at position START. 

An attempt to delete a portion of the 
source beyond its length is an execution 
time error. 

+ Examples^ 

+ 

DELETE('ABCDE',2,3) yields 'AE' 
DELETE('ABCDE',3) yields 'AB' 

DELETE(’ABCDE’,3,1) yields 'ABDE' 
DELETE('ABCDE',1) yields " 
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+ 11.6»5 TRIM Function 


+ 11.6.6 LTRIM Function 



Remove Leading Blanks 

Definition- 

function LTRIMC 

const SOURCE : STRING) 

: STRING; 

Mhere- 

SOURCE is the STRING to be trimmed. 


+ The TRIM function returns the parameter 
+ value with all trailing blanks removed. 

+ 

+ Example- 
+ 

+ TRIM(’ A B ’) yields ' A B' 

+ TRIMC’ ’) yields 

+ 


+ The LTRIM function returns the parameter 
+ value with all leading blanks removed. 

+ 

+ Example- 
+ 

+ LTRIM(' A B ») yields »A B » 

+ LTRIMC’ ’) yields ” 

+ 
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+ 11.6.7 COMPRESS Function 


Remove Multiple Blanks 


Defin 1 tion• 

function COMPRESSC 

const SOURCE : STRING) 

: STRING; 


Where» 

SOURCE is a the STRING expression 
to be compressed. 


I- 11.6.8 i:HDEX Fuif'Ct i cn 


Lookfjp String 


Definitioni 

function INDEXC 
const SOURCE 
const LOCKUP 


Where 


STRING; 

STRING) 

0 . . 32767; 


SOURCE is a STRING that contains 
the data to be compared against 
LOOKUP is the data to be looked 
up in the SOURCE. 


+ The COMPRESS function replaces multiple 
+ blanks with a single blank. 

+ 

+ Example: 

+ 

+ COMPRESSC »A B CD ’) yields 'A B CD ' 


+ The INDEX function compares the second 
+ parameter against the first and returns 
+ the starting index of the first instance 
+ where LOOKUP begins in SOURCE. If there 
+ are no occurrences^ then a zero is 
+ returned. 

+ 

+ Examples: 

+ 

+ var 

+ S : STRING; 


S := ’ABCABC*: 


+ INDEXCS,’BC’ ) yields 2 

+ INDEXCS,'X') yields 0 
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+ 11.6.9 TOKEN Procedure 
+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ The TOKEN procedure scans the SOURCE 
+ string looking for a token and returns 
+ it as an ALPHA. The starting position 
+ of the scan is passed a!, the first 
+ parameter. This parameter is changed to 
+ reflect the position which the scan is 
+ to be resumed on subsequent calls. 
+ Leading blank5» multiple blanks and 


Find Token 


Definition■ 

procedure TOKENC 

var POS : INTEGER; 
const SOURCE : STRING; 
var RESULT : ALPHA); 


Ulhere • 


POS is the starting index in SOURCE 
of where to look for a token, it 
is set to the index of where to 
resume the search on the next 
use of TOKEN. 

SOURCE is a STRING that contains 
the data from which a token 
is to be extracted. 

RESULT is the variable which will 
be returned with token found. 


+ trailing blanks are ignored. If there 
+ is no token in the string, POS is set to 
+ LENGTH(S0URCE)+1 and RESULT is set to 
+ all blanks. 

+ 

+ A token is defined to be any of? 

+ 

+ ♦ Pascal/VS identifier - 1 to 16 

+ alphanumeric characters, '$* or an 

+ underscore. The first letter must 

+ be alphabetic or a 

j • Pascal/VS unsigned integer - see 

I page 18. 


+ • The following special symbols? 


+ 






+ 

+ 

K / 

-> 

2 ) 


+ 

= <> 

< < = 

> = 

> 

j 

+ 

( ) 

[ ] 

? 


% 

+ 

! * 

&& 1 1 

- 

- = 

# 

+ 

• ^ 

: = 

, 

. . 


+ 

{ ) 

(X K) 

/« 

¥/ 


+ 






+ 






+ 

Example ? 





+ 






+ 

I := 2; 





+ 

TOKENCI, ’ , 

Token+ ' , 

RESULT) 


+ 






+ 

I is set 

to 8 




+ 

RESULT i 

s set to 

’ T oken 



+ 






+ 

TOKEN would return the 

same 

if 

+ 

I were set to 3, 

that i 

s. 


+ 

leading 

blanks are ignored. 



+ 
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+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 


11.6.10 READSTR 


Read Data from a STRING 


Definition» 

procedure READSTRC 

const 5 : STRING; 

V 5 see belou); 

Where« 

s is a STRING expression that 
is to be used for input, 
visa list of one or more 
variables, each must be one 
of the following typesJ 

- INTEGER (or subrange) 

- CHAR (or subrange) 

- REAL 

- SHORTREAL 

- STRING 

- packed array of CHAR 


The READSTR procedure reads character 
data from a source string into one or 
more variables. The actions of READSTR 
are identical to that of READ except 
that the source data is extracted from a 
string expression instead of a text 
file. See "READ and READLN (TEXT 
Files)" on page 109. 

As in the READ procedure, variables may 
be qualified with a field length expres¬ 
sion. See the example below. 


var 
I, J 
s 

SI 

CH 

CC 


INTEGER; 

STRING(IOO); 

STRING(IOO); 

CHAR; 

packed arrayCl..lO] of CHAR; 


S ••= ’'36 245ABCDEFGHIJK»; 
READSTR(S,I,J:3,CH,CC:5,S1) 


+ the 
+ 

+ 


variables wou 

I 

J 

CH 

CC 

SI 

LENGTH(Sl) 


Id be assigned* 

36 

24 

’5' 

’ABCDE ‘ 

’FGHIJK’; 

6 


+ 11.6.11 URITESTR 
+ 

+ 

+ 

+ 

+ 

+ 

+ 

I 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ The WRITESTR procedure converts expres- 
+ sions into character data and stores the 
+ data into a string variable. The seman- 
+ tics of WRITESTR are identical to WRITE, 
+ except that the target of the data is to 
+ a STRING rather than to a text file. 
+ See "WRITE and WRITELN (TEXT Files)" on 
+ page 112. 

+ 

+ As in the case of WRITE, the expressions 
+ being converted may be qualified with a 
+ field length expression. 

+ 

+ 

+ -: - 

+ 

var 

I,J: INTEGER; 

S : STRING(IOO); 

R : REAL; 

CH : CHAR; 


l’:= 10; J := -123; 

R := 3.14159; 

CH : = ’• 

WRITESTR(S,I:3,J:5,»ABC»,CH, 
R:5:2); 


Write Data to a STRING 


Definition ? 

procedure WRITESTR( 

var s : STRING; 

e : see below); 

Where • 

s is a STRING variable 
e is an expression of one of the 
following types*- 

- INTEGER (or subrange) 

- CHAR (or subrange) 

- REAL 

- SHORTREAL 

- BOOLEAN 

- STRING 

- packed arrayCl..n] of CHAR 

Pascal/VS accepts a special para¬ 
meter format which allows you. 
to specify a length of the result. 


the variable S would be assigned: 
’ 10 -123ABC>< 3.14’ 


+ The READSTR Procedure 

+ 

+ - 


+ The WRITESTR Procedure 

+ 

+ - 
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11.7 GENERAL ROUTINES 


+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 


These routines provide several useful features of the Pascal/VS runtime environment. 


11.7.1 TFc/^E Procedure 


Routine Trace 

Definitioni 

procedure TRACEC 

var F : TEXT); 

Uhere ' 

F is the file that will receive 
the trace listing 


+ 11.7.2 HALT Procedure 
+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ This routine halts execution of an Pas- 
+ cal/VS program. That is^ this can be 
+ considered to be a return from the main 
+ program. 


Halt Program Execution 

Definitioni 
procedure HALT; 


This procedure displays the current list 
of procedures and functions that are 
pending execution (i.e. save chain). 
Each line of the listing contains the 
name of the routine, the statement num¬ 
ber where the call took place, the 
return address in hexadecimal and the 
name of the module that contained the 
calling procedure. 

The file F is the TEXT file to which the 
information is to be written. 
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11.8 SYSTEM INTERFACE ROUTINES 


These routines provide interfaces to system facilities: in general they are depend¬ 
ent on the implementation of Pascal/VS. 


+ 11.8.1 DATETIME Procedure 
+ 

+ 

+ Get Date and Time 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 


Definition: 

procedure DATETIMEC 
var DATE, 

TIME : ALFA); 

Mhere: 

DATE is the returned date. 
TIME is the returned time. 


+ 11»8.2 CLOCK Function 
+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ The value returned is the number of 
+ microseconds the program has been run- 
+ ning. Note: In an MVS system: the time 
+ is "TASK” time; and in a CMS system: the 
+ time is "CPU virtual" time. 


Get Execution Time 
Definition: 

function clock : INTEGER; 


+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 


Thi5 procedure returns the current date 
and time of day as two ALFA arrays. The 
format of the result is placed in the 
first and second parameters respective¬ 
ly- 

mm/dd/yy 

HH:MM:SS 

where: 

mm is the month expressed as a two 
digit value. 

dd is the day of the month, 
yy is the last two digits of the 
year. 

HH is the hour of the day expressed 
in a 24 hour clock. 

MM is the minute of the hour. 

SS is the second of the minute. 
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+ 11.8.3 PARMS Function 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ The PARMS function returns a string that 
uias associated uith initial invocation 
+ of the Pascal/VS main program. 


Get Execution Parameters 


Definition! 


function PARMS 

STRING; 


+ 11.8.4 RETCODE Procedure 
+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 


Set Program Return Code 


Definition t 

procedure RETCODEC 

RETVALUE : INTEGER); 

where! 

RETVALUE is the return code to be 
passed to the caller of the 
Pascal/VS program. The value 
is system dependent. 


+ The value of the operand will be 
+ returned to system when an exit is made 
+ from the main program. If this routine 
+ is called several time5» only the last 
+ value specified will be passed back to 
+ the system. 


144 


Pascal/VS Reference Manual 





TNL SN204446 (31 December 81) to SH20-6168-1 



Syntax • 


include-statement* 


---> - —> INCLUDE —> id ( id ) 

L-> jci - 


check-statement• 


- —> % ---> CHECK 


-- 1 -^ -- 

-> POINTER->- •- > OFF- 

-> SUBSCRIPT->- 

-> SUBRANGE->- 

-> FUNCTION->- 

-> CASE->- 

-> TRUNCATE- 


►rint-statement: 


-> %-> PRINT-T-> ON 


T—^ UN - j- 

L-> OFF->-* 


1 1 st-statement• 


-> % -> LIST-T-> ON 


—^ UN-j- 

L-> OFF->-* 


:ement s 


-> %-> PAGE 


cpaqe-statement* 

-> % -> CPAGE -> unsigned-integer 

title-statement? 


---> y» -> TITLE-> any-character-stri ng 

skip-statement ? 


-> % -> SKIP -> unsigned-integer 

marqj ns-statement ? 


—> % -> MARGINS -> unsigned-integer unsigned-integer 


+ The X feature of Pascal/VS is used to + which causes the compiler to ignore all 
+ enable or disable a number of compiler + text between the statement and the 
+ options and features. The compiler + end-of-line. 

+ treats a % command as a trigger symbol 
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+ 12.1 THE ^^IHCLUDE STATEMENT 

+ 

+ 

The INCLUDE statement causes source from 
a library file to be inserted into the 
input stream immediately after the cur¬ 
rent line. More precisely, the compiler 
is directed to begin reading its input 
from a library file; when the end of the 
file is reached, the compiler will 
resume reading from the previous source. 

There are two forms of the INCLUDE 
statement •* 

• ^INCLUDE 1ibrary-name(member-name) 

• ?<INCLUDE member-name 

The first form references a library file 
and a specific member in the file.® 

The second form references a specific 
member from a default library. 


program ABC; 
const 

^include CONSTS 

type 

%include TYPES 

var 

%include VARS 
?iinclude LIBKPROCS) 
begin 

end. 

Example of /JINCLUDE statement 


+ 12.2 THE *4CHECK STATEMENT 
+ 

+ 

+ The CHECK statement gives you the abili- 
+ ty to enable or disable the runtime 
+ checking features of Pascal/VS. The 
+ checking may be enabled for part or all 
+ of the program. The compiler will check 
+ the following5 
+ 

+ • use of a pointer whose value is NIL 
+ (POINTER). 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 


+ • assignment of a value which is not 

+ in the proper rangs for the target 

+ variable (SUBRANGE). 

+ 

+ • use of the predefined functions PRED 

+ or SUCC where the result of the 

+ function is not a value in the type, 

+ i.e. underflow or overflow of the 

+ value range (SUBRANGE). 

+ 

+ • the value of a CASE statement selec- 

+ tor which is not equal to any of the 

+ CASE labels (CASE). 

+ 

+ • the value of a string will be 

+ checked to be sure it will fit into 

+ the target string on an assignemnt 

+ (TRUNCATE). 

+ 

+ If the check option is missing, then all 
+ of the above checks will be assumed 

+ applicable. For example, ’/(CHECK ON’ 
+ activates all of the checks. ’%CHECK 
+ POINTER OFF’ will disable the check on 
+ pointer references. The default is: 

+ 

+ CHECK ON 

+ 

+ The /(CHECK statement, like the other 
+ statements in this section, is a direc- 
+ tion to the compiler. Its effect is 
+ based on where it appears in the text 
+ and is not subject to any structuring 
+ established by the program. 

+ 

+ 

+ 

+ 12.3 THE ?(PRINT STATEMENT 
+ 

+ 

+ The PRINT statement is used to turn on 
+ and off the printing of source in the 
+ listing. The default is: 

+ 

+ % PRINT ON 

+ 

+ 

4 " 

+ 12.4 THE */(LIST STATEMENT 
+ 

+ 

+ The LIST statement is used to enable or 
+ disable the pseudo-assembler listing of 
the Pascal/VS compiler. This option 
only has affect if the LIST compiler 
options is enabled. 

It is often required to view the 
pseudo-assembler listing for only a 
small section of a module, and to have 


• use of a subscript which is out of 
range for the array index 
(SUBSCRIPT) . 

• lack of an assignment of a value to 
a function before exiting from the 
function (FUNCTION). 


it suppressed elsewhere. This can be 
done as follows: 

1. Insert a line at the beginning of 
the module that consists of 

J(LIST OFF 


Under VM/CNS, OS, and MVS/TSO operating environments, the specified library 
name is actually the ”DD name” of a partitioned data set (which may be con¬ 
catenated). If the library name is omitted, the default is SYSLIB. 
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2. At th© beginning of each section of + 

code for Nhich an assembler listing + 
is required, insert + 

+ 

%LIST ON + 

+ 

3. At the end of each code section + 

insert + 

+ 

%LIST OFF + 

+ 

4. Compile the module with the LIST + 

option. + 


page skip. The title is printed as spe¬ 
cified on the statement, there is no 
change from lower case to upper case. 
The default is no title. 


1\8 THE %SK1P STATEMENT 


The SKIP statement is used to force one 
or more blank lines to be inserted into 
the source listing. 


+ 12.5 THE ?{PAGE STATEMENT 
+ 

+ 

+ The PAGE statement is used to force a 
+ skip to the next page on the output 
+ listing of the source program. 

+ 

+ 

+ 

+ 

+ 12.6 THE %CPAGE STATEMENT 
+ 

+ 

+ The CPAGE statement is used to force a 
+ page eject if there are less than a spe- 
+ cified number of lines left on the cur- 
+ rent page of the output listing. This 
+ is useful to make sure there is suffi- 
+ cient room for a unit of code, thereby 
+ not having it split across two pages. 
+ Example* 

V 

+ % CPAGE 30 

+ 

+ 

+ 

+ 

+ 12.7 THE ?{TITLE STATEMENT 
+ 

+ 

+ The TITLE statement is used to set the 
+ title in the listing. It also causes a 


12.9 THE ^{MARGINS STATEMENT 


The MARGINS statement redefines the left 
and right margins of the compiler input. 
The compiler skips all characters that 
lie outside the margins. The statement 
has the form 

JiMARGINS m n 

where ”m” is the new left margin and ”n” 
is the new right margin. 

If the MARGINS statement appears in a 
library member which is being "included" 
by the /^INCLUDE statement, the new mar¬ 
gins will have affect for the duration 
of the member only. When the end of the 
member is reached and the previous 
source is resumed, the margin settings 
will revert back to their previous con¬ 
dition. 
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A.O THE SPACE TYPE 


+ A^l THE SPACE DECLARATION 


Syntax 


-> space -> [->{constant-expr}-> ]-> of ->{type} 


+ 

+ The need arises to represent data within 
+ storage areas which do not have the same 
+ fixed offset within each instance of the 
+ area. Examples of this include entries 
+ within a directory, where each entry may 
+ be of variable length, and processing 
+ variable length records from a buffer. 
+ To solve this problem, Pascal/VS pro- 
+ vides the space structure. 

+ 

+ A variable declared with the space type 
+ has a component which is able to ’float’ 
+ over a storage area in a byte oriented 
f manner. Space variables are accessed by 
+ following the variable’s name with an 
+ integer index expression enclosed in 
+ square brackets. The index represents 
+ the offset (in bytes) within the space 
+ storage where the data to be accessed 
+ resides. The offset is specified with 
+ an origin of zero. 

+ 

+ The constant expression which follows 
+ the space qualifier in the type defi” 
+ nition represents the size of the stor- 
+ age area (in bytes) associated with the 
+ type. 

+ 

+ The component type of the space may be 
+ of any type except a file type. 

+ 

-f- An element of a space may not be passed 
+ as a var parameter to a routine. Howev- 
+ er, an element may be passed as a const 
+ or value parameter. 

+ 

+ 

+ 

+ A.g SPACE REFERENCING 
+ 


+ within square brackets, after the space 
+ variable (just as in array references). 
+ The indexing expression must be of type 
+ INTEGER (or a subrange thereof). The 
+ value of the index is the offset within 
+ the space at which the component is to 
+ be accessed. The unit of the index is 
+ the byte. The index is always based 
+ upon a zero origin. The component will 
+ be of the space base type. 

+ 

+ If the ’%CHECK SUBSCRIPT’ option is ena- 
+ bled, the index expression will be 
+ checked at execution time to make sure 
+ that the computed address does not lie 
+ outside the storage occupied by the 
+ space. An execution time error diagnos- 
+ tic will occur if the value is invalid. 
+ (For a description of the CHECK feature 
+ see ’’The >JCHE()K Statement” on page 146). 
+ 

+ - 

+ 

+ var 

+ S: space!100] of 
+ record 

+ A,B: integer 

+ end? 

+ 

+ begin 

+ (base record begins 
+ at offset 10 within 

+ space } 

+ SllOl.A != 26; 

+ SC103.B := 0; 

+ end; 

+ 

+ Space Referencing Examples 

+ 

+ - 


+ 

+ A component of a space is selected by 
+ placing an index expression, enclosed 
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B.O STANDARD IDENTIFIERS IN PASCAL/VS 


A standard identifier is the name of a 
constant, type, variable or routine that 
is predefined in Pascal/VS. The name is 
declared in every module prior to the 
start of your program. You may redefine 


the name if you wish; however, it is 
better to use the name according to its 
predefined meaning. 

The identifiers that are predefined are^ 





Standard Identifiers 


identifier 

form 

description 


ABS 

function 

compute the absolute value of an INTEGER or REAL 

+ 

ALFA 

type 

array of 8 characters, indexed 1..ALFALEN 

+ 

ALFALEN 

constant 

HBOUND of type ALFA, value is 8 

+ 

ALPHA 

type 

array of 16 characters, indexed 1..ALPHALEN 

+ 

ALPHALEN 

constant 

HBOUND of type ALPHA, value is 16 


ARCTAN 

function 

returns the arctangent of the argument 


BOOLEAN 

type 

data type composed of the values FALSE and TRUE 


CHAR 

type 

character data type 


CHR 

function 

convert an integer to a character value 

+ 

CLOCK 

function 

returns the number of micro seconds of execution 

+ 

CLOSE 

procedure 

close a file 

+ 

COLS 

function 

returns current column on output line 

+ 

COMPRESS 

function 

replaces multiple blanks in a string with one blank 


COS 

function 

returns the cosine of the argument 

+ 

DATETIME 

procedure 

returns the current date and time of day 

+ 

DELETE 

function 

returns a string with a portion removed 


DISPOSE 

procedure 

deallocate a dynamic variable 


EOF 

function 

test file for end of file condition 


EOLN 

function 

test file for end of line condition 


EXP 

function 

returns the base of the natural log (e) 
raised to the power of the argument 


FALSE 

constant 

constant of type BOOLEAN, FALSE < TRUE 

+ 

FLOAT 

function 

convert an integer to a floating point value 


GET 

procedure 

advance file pointer to next element of input file 

+ 

HALT 

procedure 

halts the programs execution 

+ 

HBOUND 

function 

determine the upper bound of an array 

+ 

HIGHEST 

function 

determine the maximum value of a scalar 

+ 

INDEX 

function 

looks up one string in another 


INPUT 

variable 

default input file 


INTEGER 

type 

integer data type 

+ 

LBOUND 

function 

determine the lower bound of an array 

+ 

LENGTH 

function 

determine the current length of a string 


LN 

function 

returns the natural logarithm of the argument 

+ 

LOWEST 

function 

determine the minimum value of a scalar 

+ 

LTRIM 

function 

returns a string with leading blanks removed 

+ 

MARK 

procedure 

routine to create a new heap 

+ 

MAX 

function 

determine the maximum value of a list of scalars 


MAXINT 

constant 

maximum value of type INTEGER 

1 

MAXLENGTH 

function 

determines the maximum length of a string 

+ 

MIN 

function 

determine the minimum value of a list of scalars 

+ 

MININT 

constant 

minimum value of type INTEGER 


NEW 

procedure 

allocate a dynamic variable from most recent heap 
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Standard Identifiers Continued 


identifier 

form 

description 


ODD 

function 

returns TRUE if integer argument is odd 


ORD 

function 

convert a scalar value to an integer 


OUTPUT 

variable 

default output file 


PACK 

procedure 

copies an array to a packed array 


PAGE 

procedure 

skips to the top of the next page 

Hh 

PARMS 

function 

returns the system dependent invocation parameters 


PDSIN 

procedure 

open a file for input from a partitioned data set 

1 

PDSOUT 

procedure 

open a file for output from a partitioned data set 

+ 

POINTER 

type 

type to permit passing arbitrary pointers a routine 


PRED 

function 

obtain the predecessor of a scalar 


PUT 

procedure 

advance file pointer to next element of output file 

+ 

RANDOM 

function 

returns a pseudo-random number 


READ 

procedure 

routine to read data from a file 


READLN 

procedure 

routine to read the end of line character of TEXT file 

1 

READSTR 

procedure 

converts a string to values assigned to variables 


REAL 

type 

floating point represented in 370 long floating point 

+ 

RELEASE 

procedure 

routine to destroy one or more heaps 


RESET 

procedure 

open a file for input 

+ 

RETCODE 

procedure 

sets the system dependent return code 


REWRITE 

procedure 

open a file for output 


ROUND 

function 

convert a floating point to an integer by rounding 

1 

SEEK 

procedure 

positions an opened file at a specific record 

1 

SHORTREAL 

type 

floating point represented in 370 short floating point 


SIN 

function 

returns the sine of the argument 

+ 

SIZEOF 

function 

determine the memory size of a variable or type 


SQRT 

function 

returns the square root of the argument 


SQR 

function 

returns the square of the argument 

+ 

STR 

function 

convert an array of characters to a string 

+ 

STRING 

type 

a type for an array of char uhose length varies during 

+ 



execution up to a maximum length 

1 

STRINGPTR 

type 

a type for dynamically allocated strings of an 

1 



execution determined length 

+ 

SUBSTR 

function 

returns a portion of a string 


SUCC 

f unction 

obtain the successor of a scalar 

1 

TERMIN 

procedure 

open a file for input from the terminal 

1 

TERMOUT 

procedure 

open a file for output from the terminal 


TEXT 

type 

file Of CHAR 

+ 

TOKEN 

procedure 

extracts tokens from a string 

+ 

TRACE 

procedure 

writes the routine return stack 

+ 

TRIM 

function 

returns a string with trailing blanks removed 


TRUE 

constant 

constant of type BOOLEAN, TRUE > FALSE 


TRUNC 

function 

convert a floating point to an integer by truncating 


UNPACK 

procedure 

copies a packed array to an array 

1 

UPDATE 

procedure 

opens a file for both input and output 


WRITE 

procedure 

routine to write data to a file 


WRITELN 

procedure 

routine to write end of line to a TEXT file 

1 

WRITESTR 

procedure 

converts a series of expressions into a string 
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check-statement• 


-> % -> CHECK 


> 

POINTER - 

->- 

> 

SUBSCRIPT — 


> 

SUBRANGE - 

->- 

> 

FUNCTION - 

->- 

> 

CASE -- 


> 

TRUNCATE- 

->J 


"I-> ON-T' 

L-> OFF- 


> 


cpaqe-statement• 

-> %-> CPAGE-> unsi gned-i nteger-> 


compound-statement ’ 

- > begin - 1 -> (statement)- 1 -> end -> 

L<- . <-1 


constant• 


> (unsi gned-constant}'-1-> 

T-> + -1-> (unsi gned-number)->-* 

I-> _ ->J 


constant-dcl• 


+ 


-> const 


-Xid)- 


-> = 


■> (constant-expr)- 


continue-statement ' 

+ -> continue - 


> 


+ 

+ 

+ 

+ 

+ 


declarat1 on» 

--> (label-del)->■ 

->(constant-dcl)->■ 

-> (type-del)->' 

-> (vai—del)->' 

-Xdef-dcl)->- 

-> (static-del)->- 

->( value-del)->- 

-> (routi ne-dcl)- 


> 


+ 

+ 

+ 

+ 


def-dcl• 


"■"i: 


> def - 1 - 1 - 1 ->(id)- 1 -> ’ ->(type)-> ; - 1 -> 

> ref I ^ -J I 


i-< 
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directive» 


■> FORWARD 



-> EXTERNAL 


—> fortran 


-> MAIN 


-> REENTRANT 


enumerated-scalai—type 


constant-GXPr 


-> (simple-expression}- 



>(simple-expressi on) 


factor ? 


—>{function-call}- 

->{variable}- 

—>{set-constructor}- 

-> ( ->{expr}-> ) — 

—>{structured-constant} 


■> not 


■> {factor}- 


■> {unsi gned-constant}- 


field: 











f 1 le-tvpe• 


- > file of ->{type}---> 

fixed-part» 


T“ 

—1-> {field} 

□—r 

—> : - 

>{type} 


1 

1_ 

'' r ^ 

1 

—>j 

. 





>{expr}- 1 -> to - 1 ->{expr}- >-1 

*-> dOMnto ->-* 


> do -> {statement}-> 


for-statement« 

-> for ->{id}-> J= - 

rz 


+ 


formal • 

--1-^ -1-1-{id}- 1 -> - ->{id5type} 

L-> const —*-< - , <-* 

- 1 -{id}- 1 -> ! ->{id5type}- 

L<- , <-i 

->{procedure-heading}- 

->function-heading}- 


> 




>- 


formal-parameter 5 • 
—> ( 




> {formal}- 


■> ) 


j 


function-call? 

-> {i dJ functi on}-> {actual-parameters}-> 


function-heading^ 

- > function ->{id}->{formal-parameters}-> ' ->{idJtype}-> 


goto-statement» 

-> goto ->{label}-> 
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id: 


-> (letter) 


-> (di gi t)->- 

-> (letter)->->-i 

-> (underscore) 


L< 


> 


if-statement: 

—> —>(expr)—> then —Xstatement) ---——- 1 -> 

- > else —Xstatement)—>-* 


include-statement: 

- > % - > INCLUDE - > id-x-- T -> 

L-> (-> -> ) ->J 


index-tvpe: 

-> (enumerated-scalai—type)->-i 

-> (id: sea la I —type)->-{- > 

-> (subrange-scalai—type)->-* 


labe l: 




> (unsi gned- i nteger)-r 

(id)->-* 


> 


label-del: 

- > label - 1 ->(label)- 1 -> ; -> 

L<- , <-1 


leave-statement: 

—> leave-> 

1ist-statement: 

list ——p—> ON-T-> 

L-> OFF->-• 


marqj ns-statement: 

-> % -> MARGINS -> unsigned-integer unsigned-integer -> 


module: 



(program-module)-r 

(segment-module)->■* 


> 
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page-statement ' 

— > ___> PAGE -> 

pointer-type ‘ 

-> ->{id5type}-> 

print-statement- 

---> %-> PRINT —-> ON-T---> 

•—-> OFF —->J 


procedure-call - 

-> {id: procedure)-1-1-> 

I——> ( -1->{expr}- \ -> ) ->-* 

L<- ^ <-1 


procedure-heading: 

-> procedure ->{id)——>(formal-parameters) 


program-module: 

- > program - >{id) - 1 -> ( - 1 -Xid)- 1 -> 

^ L<- , <-1 

■<- ; <- 

■<-:- 1 

-> {declarat i on)->-• 

->(compound-statement)-> . - 



> 


> 


range: 

+ -> (constant-expr)- 1 --- 1 -> 

+ ' -> ..-> (constant-expr)->-* 


real-number: 

-> * - 1 -->(hex-digit)-j-> *XR 

•> (di gi t)- 1 — 


■>n 


t;: 

r<- 

<- 


-> . 


T. 


Xdi gi t)- 


■> E 


. —>1 —c 

-> - ->-l 


-Xdigi t)- 


record-structure: 
->(id:type)-> ( 


'i: 


•>(constant-expr) 


r>T 


I 


> 


+ 

+ 

+ 
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recor 



+ 

+ 

+ 

+ 

+ 

+ 

+ 


+ 

+ 

+ 

+ 

+ 

+ 

+ 


segment-module• 

-> SEGMENT->{id}-> ; 

.<-- 

->{constant-del)->- 

-> {type-del}->- 

-> {vai—del)->- 

-> {def-dcl}->- 

-> {static-del}->- 

->{ value-del}->- 

-> {routine-del}->■* 












set-type• 


T-> packed - 


■> set of ->{base-scalar-type}- 


simple-express!on 


-> + 
-> - 


->- 


■> {term}- 


-> + 
-> - 


-> —> 

-> I -> 


L<- 


skip-statement» 

-> y* -> SKIP-> unsi gned-i nteger- 

space-type• 

+ -> space -> [-> {constant-expr}-> ]-> of->{type} 


>-i 

>- 

>- 

>- 

>- 

>- 

>- 

>- 

>- 

>- 

>- 

>- 

>- 

>- 

>■- 


static-dcl• 

+ -> static 

+ 

+ 


>{id}--T-> ’ ->{type}-> 




T 


‘-<- 


statement• 

—> {label}- 


—> {compound-statement}- 

I->{conti nue-statement} 

—> {ernpty-statement}-^- 

—>{for-statement}- 


12 


->{assert-statement}- 

->{assignment-statement}- 

->{case-statement}- 


■> {goto-statement}- 
■>{if-statement}— 


—>{leave-statement} 
->{procedure-call}— 


—> {repeat-statement}- 

]■ -> {return-statement} 

—>{while-statement}— 
—>{with-statement}— 
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str1nq- 


> » 


> 


+ 

+ 


-> , -- 

I *-<-{character}< 

I-> f -j.->{hGx-digit}-j- > *XC ->-* 


str 1 nq-tvpe ' 


+ -> STRING- 1 -> (-> {constant-expr}-> )- 1 -> 

+ L->J 


structured-constant• 

+ - 1 -> {record-structure}-r---> 

+ '-> {array-structure}->-* 

subrange-scalar-type ? 

+-T—> packed >-| 

-<--J 

+ -j->{constant}-> .. ->{constant-expr}-j-> 

+ - > range -> {constant-expr}-> ..-> {constant-expr}->-' 


terms 



titie-statement s 

-> % -> TITLE -> any-character-string 


> 


tyejii 

--> {Id; type}- 

->{enumerated-scalar-type} 

->{subrange-scalar-type}— 

->{array-type}- 

->{record-type}- 

->{set-type}- 

->{file-type}- 

"->{pointer-type}- 


>1 


>' 

>- 




>H 




>- 
> ■ 


> 
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Mhii le-statement * 

-> While ->{expr}-> do ->{5tatement} 


Mith~statement♦ 

- > with - 1 ->{variable)-1-> do ->{5tatement} 

L<- ^ <-1 


Syntax Diagrams 
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APPEMDXX D. 3(ND£X TO SYNTAX 


actual-parameters. 79 

array-structure. 20 

array-type. 42 

assert-statement. 84 

assignment-statement. 85 

base-scalai—type. 48 

case-statement. 86 

check-statement. 145 

compound-statement. 88 

constant. 18 

constant-dcl. 24 

constant-expr. 71 

cont i nue-statement. 89 

cpage-statement. 145 

declaration. 21 

def-del. 28 

directive. 61 

empty-statement. 90 

enumerated-scalar-type. 34 

expr... 71 

factor. 71 

field.. 44 

field-list. 44 

f i le-type.. 50 

fixed-part. 44 

foi—statement. 91 

formal.. 61 

formal-paramaters. 61 

function-heading. 61 

function-call. 79 

goto-statement. 93 

id. 13 

if-statement.. 94 

i nclude-statement. 145 

i ndex-type. . 42 

label. 23 

label-del. 23 

leave-statement. 95 

list-statement. 145 

margi ns-statement. 145 

module. .. 21 


page-statement. 145 

pointei—type. 57 

print-statement. 1*^5 

procedure-call. 96 

procedure-heading. 61 

program-module. 21 

range. 44 

real-number. 18 

record-structure. 20 

record-type.. .. 44 

repeat-statement. 97 

repetition. 20 

return-statement. 98 

rout i ne-dcl. 61 

segment-module. 21 

set-constructor. 81 

set-type. 48 

simple-expression. 71 

skip-statement. 145 

space-type. 149 

statement. 83 

stat i c-dcl.. 27 

string. 18 

string-type. 51 

structured-constant. 20 

subrange-scalai—type.... 35 

term. 71 

title-statement. 145 

type.. . 31 

type-del.. 25 

unsigned-constant. 18 

unsi gned-i nteger. 18 

unsigned-number. 18 

value-assi gnement. 29 

value-del. 29 

var-dcl. 26 

variable. 67 

variant-part. 44 

wi th-statement.. . . 100 

Nhi le-statement. 99 
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E.O GLOSSARY 


Actual parameter specifies uihat i s to be 
passed to a routine. 

Array type is the structured type that 
consists of a fixed number of elements> 
each element of the same type. 

Assignment compatible i s the term used 
to indicate whether a value may be 
assigned to a variable. 

Automatic variable is a variable which 
is allocated on entry to a routine and 
is deallocated on the subsequent return. 
An automatic variable is declared with 
the var declaration. 

Base scalar type i s the name of the type 
on which another type is based. 

Bi t is one binary digit. 

Byte is the unit of addresabi1ity on the 
System/370, its length is eight bits. 

Compatible types is the term which is 
used to indicate that operations between 
values of those types are permited. 

Component is the name of a value in a 
structured type. 

Constant is a value which is either a 
literal or an identifier which has been 
associated with a value in a const dec¬ 
laration. 

Constant expression is an expression 
which can be completely evaluated by the 
compiler at compile time. 

Dynamic variable is a variable which is 
allocated under programmer control. 
Explicit allocates and deallocates are 
required; the predefined procedures NEW 
and DISPOSE are provided for this pui— 
pose. 

Element is the component of an array. 

Entry routine is a procedure or function 
which may be invoked from outside the 
module in which it is defined. The rou¬ 
tine is called entry in the module in 
which is defined. An entry routine may 
not be imbedded in another routine; it 
must be defined on the outermost level 
of a module. 

Enumerated scalar type is a scalar that 
is defined by enumerating the elements 
of the type. Each element is repres¬ 
ented by an identifier. 

External routine i s a procedure or func¬ 
tion which may be invoked from outside 
the module in which the routine is 
defined. 

Field is the component of a record. 


File type is a data type which is the 
mechanism to do input and output in 
Pascal/VS. 

Fixed part is that part of a record 
which exists in all instances of a par¬ 
ticular record type. 

Formal parameter is a parameter as 
declared on the routine heading. A 
formal parameter is used to specify what 
is permitted to be passed to a routine. 

Function is a routine, invoked by coding 
its name in an expression, which passes 
a result back to the invoker through the 
routine name. 

Ident i f i er is the name of a declared 
item. 

Index is the selection mechanism applied 
to an array to identify an element of 
the array. 

Internal routine is a routine which can 
be used only from within the lexical 
scope in which it was declared. 

Lexical scope identifies the portion of 
a module in which a name is known. An 
identifier declared in a routine is 
known within that routine and within all 
nested routines. If a nested routine 
declares an item with the same name, the 
outer item is not available in the 
nested routine. 

Module is the compilable unit in 
Pascal/VS. 

Offset is the selection mechanism of a 
space. An element is selected by plac¬ 
ing an integer value in parenthesis. 
The origin of a space is based on zero. 

Packed record type is a record structure 
in which fields are allocated in the 
minimum number of bytes. Implementation 
defined alignment of data types will not 
be preserved in order to pack the 
record. Packed records may not be 
passed by read/write reference. 

Pass by read only reference is the 
parameter passing mechanism by which the 
address of a variable or temporary is 
passed to the called routine. The 
called routine is not permitted to modi¬ 
fy the formal parameter. If the actual 
parameter is an expression, a temporary 
will be created and its address will be 
passed to the called routine. A tempo¬ 
rary is also created for fields of 
packed records. 

Pass by read/write reference is the 
parameter passing mechanism by which the 
address of a variable is passed to the 
called routine. If the called routine 
modifies the formal parameter, the cor- 
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responding actual parameter is changed. 
Only variables may be passed via this 
means. Fields of packed records will 
not be permitted to be passed in this 
way. 

Pass by value is the parameter passing 
mechanism by which a copy of the value 
of the actual parameter is passed to the 
called routine. If the called routine 
modifies the formal parameter, the coi— 
responding actual parameter is not 
affected. 

Pointer type is used to define variables 
that contain the address of dynamic vai— 
iables. 

Procedure is a routine, invoked by cod¬ 
ing its name as a statement, which does 
not pass a result back to the invoker. 

Program module is the name of the com¬ 
pilable unit which represents the first 
unit executed. 

Record type is the structured type that 
contains a series of fields. Each field 
may be of a type different from the 
other fields of the record. A field is 
selected by the name of the field. 

Reserved word is an identifier whose use 
is restricted by the Pascal/VS compiler. 

Rout i ne is a unit of a Pascal/VS program 
that may be called. The two type of 
routines are^ procedures and functions. 

Scalar type defines a variable that may 
contain a single value at execution. 

S egment module is a compilable unit in 
Pascal/VS that is used to contain entry 
routines. 

Set type is used to define a variable 
that represents all combinations of ele¬ 
ments of some scalar type. 


Space type is used to define a variable 
whose components may be positioned at 
any byte in the total space of the vari¬ 
able. 

Statement is the executable unit in a 
Pascal/VS program. 

String represents an ordered list of 
characters whose size may vary at exe¬ 
cution time. There is a maximum size 
for every string. 

String constant is a string whose value 
is fixed by the compiler. 

Structured type is any one of several 
data type mechanisms that defines vari¬ 
ables that have multiple values. Each 
value is referred to generally as a com¬ 
ponent . 

Subrange scalar type is used to define a 
variable whose value is restricted to 
some subset of values of a base scalar 
type. 

Tag fi eld is the field of a record which 
defines the structure of the variant 
part. 

Type defines the permissible values a 
variable may assume. 

Type definition is a specification of a 
data type. The specification may appear 
in a type declaration or in the declara¬ 
tion of a variable. 

Type identifier is the name given to a 
declared type. 

Variant part is that portion of a record 
which may vary from one instance of the 
record to another. The variant portion 
consists of a series of variants that 
may share the same physical storage. 
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< operator 36» 37, 39, 40, 41, 52, 54, 
55 

<< operator on INTEGERS 36, 78 
<> operator 36, 37, 39, 40, 41, 48, 52, 
54, 55 

<= operator 36, 37, 39, 40, 41, 48, 52, 
54, 55 

+ operator 36, 40, 41, 48 
I operator 36, 39 
I I operator 52 
i operator 36, 39 
&& operator 36, 39, 48 



operator 

36, 

40, 

41, 

48 

-< 

operator 

36, 

39, 

48 


- 

operator 

36, 

40, 

41, 

48 

/ 

operator 

36, 

40, 

41 



% statements 145 
CHECK 146 
CPAGE 146 
INCLUDE 146 
LIST 146 
PAGE 146 
PRINT 146 
SKIP 146 
TITLE 146 

> operator 36, 37, 40, 41 

> operator 39, 52, 54, 55 

>> operator on INTEGERS 36, 78 

>= operator 36, 37, 39, 40, 41, 48, 52, 
54, 55 

= operator 36, 37, 39, 40, 41, 48, 52, 
54, 55 



ABS function 36, 37, 40, 41, 131 

adding operators 74 

ALFA operators 54 

ALFA predefined type 54 

ALPHA operators 55 

ALPHA predefined type 55 

and operator on INTEGERS 78 

ARCTAN function 40, 41, 133 

array referencing 67 

array structured constants 20 

array subscripting 42 

array type 42 

assert statement 84 

assignment of compatible types 32 

assignment of function value 85 

assignment statement 85 



binary integer constants 18 
BOOLEAN expressions 77 
BOOLEAN operators 39 
boolean predefined type 39 



case statement 86 

CHAR operators 37 

char predefined type 38 

CHECK compiler directive 146 

CHR function 36, 125 

CLOCK function 143 

CLOSE procedure 107 

COLS function 116 

comments 17 

COMMON (FORTRAN) 28 

compatible types 32 

compile time initialization 29 

compound statement 88 

COMPRESS function 52, 139 

conformant STRING parameters 62 

const declaration 24 

constant declaration 24 

constant expression 71, 76 

constant expressions 18 

constants 18 

continue statement 89 

conversions 31 

conversions on a string 52, 53 
COS function 40, 41, 132 
CPAGE compiler directive 146 



data alignement 59 

data storage requriements 59 

DATETIME procedure 143 

declaration 21, 23 

declaration order 22 

def variable declaration 28 

DELETE function 52, 137 

directives 61 

DISPOSE procedure 57, 120 

diV operator 36 

div operator defined 37 

downto in the for statement 91 

dynamic variables 57, 68 



EBCDIC 38 
empty statement 90 
enumerated scalar 34 
EOF function 109 
EOLN function 115 
example of 

array declarations 42 
array indexing 43 
assert statement 84 
assignment statement 85 
BOOLEAN expressions 77 
case statement 86 
compound statement 88 
COMPRESS function 139 
conformant strings 63 
const declaration 24 
const parameter 65 
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constant expressions 76 
constants 19 
continue statement 89 
def declaration 28 
DELETE function 137 
enumerated scalar 34 
EOF procedure 109 
expressions 73 
EXTERNAL function 63 
fields in a record 68 
file decalarations 50 
for statement 92 
function 79 

function returning a record 65 
goto statement 93 
HBOUND function 123 
HIGHEST function 122 
if statement 94 
INDEX function 139 
initializing an array 29 
label declaration 23 
LBOUND function 123 
leave statement 95 
logical expressions 78 
LOWEST function 122 
LTRIM function 138 
MARK and RELEASE 118 
nested comments 17 
NEW procedure 119» 120 
offsets in a record 47 
otherwise in a case statement 87 
procedure invocations 96 
procedures and functions 65 
program module 22 
READ procedure 109» 110» 111 
READSTR procedure 140 
record declarations 45 
recursive function 65 
ref declaration 28 
repeat statement 97 
ROUND function 127 
scalar function 126 
SEGMENT module 22 
set decalaration 48 
space type 149 
static declaration 27 
structured constants 20 
subrange scalar 35 
subscripting an array 68 
SUBSTR function 137 
TOKEN procedure 140 
TRIM function 138 
TRUNC function 127 
type compatibility 33 
type declaration 25 
UPDATE procedure 106 
usingafile 69 
using pointers 68 
using STRINGPTR 58 
using STRINGS 51 
using variables 67 
value declaration 29 
var declaration 26 
variant record 45> 46 
while statement 99 
with statement 100» 101 
WRITE procedure 112, 113 
WRITESTR procedure 141 
execution time string allocation 58 
EXP function 40, 41, 133 
expression 71 


EXTERNAL directive 61 
EXTERNAL routines 63 
external variable 28 


factor 71 
field 44, 46 
field list 44 
field referencing 68 
file referencing 68 
file type 50 

fixed part of a record 44, 45 
FLOAT function 36, 126 
for statement 91 
formal parameter 62 
formal parameter list 61, 62 
FORTRAN directive 61 
FORTRAN routines 63, 64 
FORWARD directive 61 
FORWARD routines 63 
function calls 79 
function declarartion 61, 62 
function heading 61 
function parameters 62 
function results 65 

functions in constant expressions 76 


GET procedure 107 
goto statement 93 


HALT procedure 142 
HBOUND function 52, 123 
heap 57 

hexadecimal integer constants 18 
hexadecimal real constants 18 
hexadecimal string constants 18 
HIGHEST function 36, 37, 39, 122 




identifiers 13 
if statement 94 
implicit conversions 31 
in operator 48 

INCLUDE compiler directive 146 
INDEX function 52, 139 
initialization 29 

initializing the Pascal runtime envi¬ 
ronment 64 
INTEGER operators 36 
INTEGER predefined type 36 
INTEGER storage mapping 36, 37 
i nterlanguage communication 64 
internal routines 63 
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label declaration 23 

label format 23 

LBOUND function 52, 123 

leave statement 95 

LENGTH function 51, 52, 136 

lexical level 13 

lexical scope 13 

LIST compiler directive 146 

LN function 40, 41, 134 

logical expressions on INTEGERS 78 

logical operations on integers 37 

LOWEST function 36, 37, 39, 122 

LTRIM function 52, 138 


MAIN directive 61 

MAIN routines 63, 64 

MARK procedure 57, 118 

MAX function 36, 37, 39, 40, 41, 129 

MAXINT 36 

MAXLENGTH function 51, 52, 136 

MIN function 36, 37, 39, 40, 41, 129 

MININT 36 

mod operator 36 

mod operator defined 37 

module 21 

module, structure 21 
multi-dimensional array 42 
multi-dimensional arrays 67 
multiplying operators 74 
mutually recursive routines 63 


NEW procedure 57, 119 

not operator 74 

not operator on INTEGERS 78 


s 

ODD function 36, 37, 131 
offset quaiIfication 46 
operations on 
ALFA 54 
ALPHA 55 
BOOLEAN 39 
CHAR 38 
INTEGER 36 
REAL 40 
set 48 
SHORTREAL 41 
STRING 52 

operator precedence 71 
operators 74 

or operator on INTEGERS 78 
ORD function 37, 39, 125 
order of evaluation of BOOLEAN expres¬ 
sions 77 

order of evaluation of expressions 71 


PACK procedure 121 

packed array 42 

packed record 46 

packed set 48 

packed subrange 35 

PAGE compiler directive 146 

PAGE procedure 115 

parameter 62 

parameters 61 

parenthesized expression 71 
PARMS function 144 
pass by const parameters 62 
pass by read-only reference 
parameters 62 

pass by reference parameters 62 
pass by value parameters 62 
pass by var parameters 62 
PDSIN procedure 105 
PDSOUT procedure 106 
pointer referencing 68 
pointer type 57 
PRED function 36, 37, 130 
PRINT compiler directive 146 
procedure call statement 96 
procedure declaration 61 
procedure heading 61, 62 
procedure parameters 62 
program module 21 
PUT procedure 108 


r —I 

LiJ 


RANDOM function 135 
READ procedure 109, 111 
Reading 

CHAR Data 110 
INTEGER Data 110 
packed array of CHAR Data 110 
REAL (SHORTREAL) Data 110 
STRING Data 110 
Variables uiith a Length 110 
READLN procedure 109 
READSTR procedure 52, 140 
real constants 18 
REAL operators 40 
real predefined type 40 
record structured constants 20 
record type 44 
REENTRANT directive 61 
REENTRANT routines 63, 64 
ref variable declaration 28 
relational operators 74 
RELEASE procedure 57, 118 
repeat statement 97 
reserved words 15 
RESET procedure 103 
restrictions on a goto statement 93 
restrictions on file type 50 
restrictions on routines 63 
restrictions using the MAIN 
directive 64 

restrictions using the REENTRANT dircc 
tive 64 

RETCODE procedure 144 
return statement 98 
revisi on codes i v 
REWRITE procedure 104 
ROUND function 40, 41, 127 
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routine declarantion 61, 62 
routine parameters 62 



same type 32 

scalar conversion functions 80, 126 

scope 13, 44 

SEEK procedure 108 

SEGMENT module 21 

seprate compilation 63 

set operators 48 

set type 48 

short circuiting of BOOLEAN 
expressions 77 
SHORTREAL operators 41 
shortreal predefined type 41 
simple expression 71 
SIN function 40, 41, 132 
SIZEOF function 36, 37, 39, 40, 41, 48, 
52, 54, 55, 124 
SKIP compiler directive 146 
space declaration 149 
space element referencing 149 
special symbols 16 
SQR function 36, 40, 41, 135 
SQRT function 40, 41, 134 
statements 83 

static variable declaration 27 

storage mapping for a set 48 

storage mapping of a record 46 

STR function 37, 54, 55, 128 

STRING 58 

string constants 18 

STRING operators 52 

STRING parameters 62 

string type 51 

strings 31 

structured constants 20 
subrange scalar 35 
SUBSTR function 52, 137 
Slice function 36, 37, 130 



tag field 45 
term 71 

TERMIN procedure 104 
TERMOUT procedure 105 
TEXT predefined type 56 
TITLE compiler directive 146 


to in the for statement 91 
TOKEN procedure 140 
TRACE procedure 142 
TRIM function 52, 138 
TRUNC function 40, 41, 127 
type compatibility 31 
type conversions 31 
type declaration 25 
type identifier 25 
type matching 32 
types 31 

types of routines 63 



UNPACK procedure 121 
unsigned-integer constants 18 
UPDATE procedure 106 
user definfed types 31 



value declaration 29 
var declaration 26 
variable declaration 26 
variable identifier 26 
variables 67 

variant part of a record 44, 45 



while statement 99 
with statement 100 
WRITE procedure 112, 114 
WRITELN procedure 112 
WRITESTR procedure 52, 141 
Writing 

BOOLEAN Data 113 

CHAR Data 113 

INTEGER Data 113 

Packed Array of CHAR Data 114 

REAL Data 113 

STRING Data 113 
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arrays or records with structured 
f1 elds. 


+ 

+ 

+ type 

+ COMPLEX = record 

+ RE,IM: REAL 

+ end; 

+ VECTOR = arrayci..?] of INTEGER; 

+ CARRAY = arrayC0..93 of COMPLEX; 

I TETRA = arrayCl..3,1..2,1.,4] 

1 of INTEGER; 

+ const 

+ { structured Constants } 

+ THREEFOUR = COMPLEXC3.0,4.0); 

+ VECT0R_1 = VECT0R(7,0:5,1); 

+ VECT0R_2 = VECT0R(2,3,,4); 

ZEROTETRA = 

TETRAC 

C (0:4):2 ), 

( ( 0 : 4), ( 0 ; 4 ) ), 

( ( 0 , 0 , 0 , 0 ),( 0 , 0 , 0 , 0 ) ) ); 

Cthe following two declarations 
are equivalent } 

+ VECT0R_3 = CARRAY( 

+ COMPLEXd.0,0.0), 

+ COMPLEXd.0,1.0):8, 

+ COMPLEX(0.0,1.0)); 

VECT0R_4 = CARRAY( 

( 1 . 0 , 0 . 0 ), 
( 1 . 0 , 1 . 0 ): 8 , 

( 0 . 0 , 1 . 0 )); 


type 

FORM = (FCHAR,FINTEGER,FREAL, 
FSTRING); 

KONST = 
record 

SIZE: INTEGER; 
case F: FORM of 

FCHAR: (C: CHAR); 

FINTEGER: d: INTEGER); 

FREAL: (R: REAL); 

FSTRING: ( 

case BOOLEAN of 

true: ( 

LEN: packed 0..32767; 
A : ALPHA); 

FALSE:(S: STRING(16)); 

end 

const 

A = KONSTd, FCHAR, ’A»); 

PI = K0NST(8,FREAL,3.14159); 

BLANK = 

KONSTd,FSTRING,FALSE, ’ *); 

STARS = 

K0NST(4, FSTRING, TRUE,4, ); 

Structured constants with 
variant record fields 


+ Examples of Structured Constants 
+ 

+- 


The Base Vocabulary 20.1 
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